home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / WordWorth3 / WW3.1SE_1.dms / WW3.1SE_1.adf / Install-Ww3.1SE < prev    next >
Text File  |  1994-10-21  |  72KB  |  2,720 lines
  1. ; $VER: Digita Wordworth 3.1 Lite  23/9/94 (English declarations)
  2. ; Installer Revision 2 - 2/9/94
  3. ; ©Copyright 1994 Digita International
  4.  
  5. (complete 0)
  6.  
  7. (set #ProductName "Wordworth 3.1")
  8. (set #ProductVersion "Special Edition")
  9.  
  10. ; ### VARIABLES
  11. ;** The amount of space needed on the hard disk to install
  12.     (set FullHDSpace 3)
  13.     (set FullHDLibsSpace 100000)
  14.     (set Language "English")              ; variable for catalog language
  15.  
  16. ;** Various
  17.     (set FloppyFinished 0)
  18.  
  19.  
  20. ; ### INSTALL DISK NAMES
  21. (set NumberInstallDisks 3)
  22. (set #Install1Disk "Ww3.1SEInstall-1")
  23. (set #Install2Disk "Ww3.1SEInstall-2")
  24. (set #Install3Disk "Ww3.1SEInstall-3")
  25.  
  26. ;** Archive Names and size of files on DISK 1
  27. (set #WordworthSourceName
  28.     (cat #Install1Disk ":Archive/Wordworth.lzh"))
  29. (set #WwFiles1SourceName
  30.     (cat #Install1Disk ":Archive/WwFiles1.lzh"))
  31. (set #WwFiles3SourceName
  32.     (cat #Install1Disk ":Archive/WwFiles3.lzh"))
  33. (set #CatalogsSourceName
  34.     (cat #Install1Disk ":Archive/Catalogs.lzh"))
  35.  
  36. (set #BootDiskFiles
  37.     (cat #Install1Disk ":Archive/Boot"))
  38. (set #SystemFontsSourceName
  39.     (cat #Install1Disk ":Archive/Fonts.lzh"))
  40. ;(set #PrefsSourceName
  41. ;    (cat #Install1Disk ":Archive/Prefs.lzh"))
  42. (set #AmigaGuideSourceName
  43.     (cat #Install1Disk ":Archive/AmigaGuide.lzh"))
  44. (set #ASLSourceName
  45.     (cat #Install1Disk ":Archive/asl.lzh"))
  46. (set #DiskFontSourceName
  47.     (cat #Install1Disk ":Archive/diskfont.lzh"))
  48.  
  49. (set #FontType1SourceName
  50.     (cat #Install1Disk ":Archive/IFOnly.lzh"))
  51.  
  52. (set #ModuleOption1SourceName
  53.     (cat #Install1Disk ":Archive/Draw.lzh"))
  54. (set #ModuleOption2SourceName
  55.     (cat #Install1Disk ":Archive/Picture.lzh"))
  56. (set #ModuleOption3SourceName
  57.     (cat #Install1Disk ":Archive/TextFX.lzh"))
  58.  
  59.  
  60. ;** Archive Names and size of files on DISK 2
  61. (set #WwProgSourceName
  62.     (cat #Install2Disk ":Archive/WwProg.lzh"))
  63. (set #WwFiles2SourceName
  64.     (cat #Install2Disk ":Archive/WwFiles2.lzh"))
  65.  
  66. (set #IntelliSourceName
  67.     (cat #Install2Disk ":Archive/Intelli.lzh"))
  68. (set #UFSTSourceName
  69.     (cat #Install2Disk ":Archive/UFST.lzh"))
  70. (set #FloppyOtagsSourceName
  71.     (cat #Install2Disk ":Archive/OTAGS.lzh"))
  72.  
  73. (set #CustomExtras1SourceName
  74.     (cat #Install2Disk ":Archive/Tutorials.lzh"))
  75. (set #CustomExtras2SourceName
  76.     (cat #Install2Disk ":Archive/Templates.lzh"))
  77. (set #CustomExtras3SourceName
  78.     (cat #Install2Disk ":Archive/Clipart.lzh"))
  79.  
  80. (set #WwToolsSourceName
  81.     (cat #Install2Disk ":Archive/WwTools.lzh"))
  82. (set #WwHelpSourceName
  83.     (cat #Install2Disk ":Archive/WwHelp.lzh"))
  84.  
  85. (set #FiltersSourceName
  86.     (cat #Install2Disk ":Archive/Filters.lzh"))
  87. (set #GfxFilter1SourceName
  88.     (cat #Install2Disk ":Archive/CGM.lzh"))
  89.  
  90.  
  91. ;** Archive Names and size of files on DISK 3
  92. (set #DictionarySourceName
  93.     (cat #Install3Disk ":Archive/Dictionary.lzh"))
  94. (set #ThesaurusSourceName
  95.     (cat #Install3Disk ":Archive/Thesaurus.lzh"))
  96.  
  97.  
  98. ;** Archive names
  99. (set #WordworthName "Wordworth.lzh")
  100. (set #WwProgName "WwProg.lzh")
  101. (set #WwFiles1Name "WwFiles1.lzh")
  102. (set #WwFiles2Name "WwFiles2.lzh")
  103. (set #WwFiles3Name "WwFiles3.lzh")
  104. (set #AmigaGuideName "amigaguide.lzh")
  105. (set #SystemFontsName "Fonts.lzh")
  106. (set #ASLName "asl.lzh")
  107. (set #DiskFontName "diskfont.lzh")
  108. ;(set #PrefsName "Prefs.lzh")
  109. (set #CatalogsName "Catalogs.lzh")
  110. (set #WwHelpName "WwHelp.lzh")
  111.  
  112. (set #ModuleOption1Name "Draw.lzh")
  113. (set #ModuleOption2Name "Picture.lzh")
  114. (set #ModuleOption3Name "TextFX.lzh")
  115.  
  116. (set #IntelliName "Intelli.lzh")
  117. (set #TrueTypeName "TrueType.lzh")
  118. (set #WwToolsName "WwTools.lzh")
  119. (set #UFSTName "UFST.lzh")
  120. (set #FloppyOtagsName "OTAGS.lzh")
  121. (set #FontType1Name "IFOnly.lzh")
  122.  
  123. (set #IFlibraryName "DigitaIntellifont.library")
  124.  
  125. (set #FiltersName "Filters.lzh")
  126. (set #FiltersFileName "wwfilter.library")
  127. (set #AmigaGuideLibraryName "amigaguide.library")
  128.  
  129. (set #GfxFilter1Name "CGM.lzh")
  130.  
  131. (set #CustomExtras1Name "Tutorials.lzh")
  132. (set #CustomExtras2Name "Templates.lzh")
  133. (set #CustomExtras3Name "Clipart.lzh")
  134.  
  135. (set #DictionaryName "Dictionary.lzh")
  136. (set #ThesaurusName "Thesaurus.lzh")
  137.  
  138. (set #Module1Name "Drawing Tools")       ;These are the filenames of the expanded modules
  139. (set #Module2Name "Picture")
  140. (set #Module3Name "TextEffects")
  141.  
  142.  
  143. ;** Disk Names
  144. (set #RamTempFile "RAM:WwTemp")
  145. (set #LibsDefault "Libs")
  146. (set #SystemFontsDest "Fonts")
  147.  
  148. (set #Font1Name "WW_STANDARD_Pica")
  149. (set #Font2Name "Condensed60.font")
  150. (set #Font3Name "newtopaz.font")
  151. (set #NumFonts 3)
  152.  
  153. (set #Parallel "Parallel")
  154. (set NumNewWwDisks 4)
  155. (set #NewWwDiskName    "Wordworth3")
  156. (set #NewWwSysDiskName "Ww3System")
  157. (set #NewWwOutlinesDiskName "Ww3Outlines")
  158. (set #NewWwDictDiskName "Ww3Spell")
  159.  
  160. ;** Envarc drawer and variable names
  161. (set #WwDrawerName "Wordworth")
  162. (set #WwFontsEnvName "WwFonts")
  163.  
  164. ;** HD Drawer Names
  165. (set #DrawerName "Wordworth3")
  166. (set #Wordworth2DrawerName "Wordworth2")
  167. (set #WordworthSEDrawerName "Wordworth")
  168.  
  169. (set #ModulesName "Modules")
  170. (set #ModDisName "Storage")
  171. (set #WwCatalogsName "Catalogs")
  172. (set #WwFilesDrawerName "WwFiles")
  173. (set #WwFiltersName "Filters")
  174. (set #WwPictureFiltersName "Pictures")
  175. (set #WwFontsName "WwFonts")
  176. (set #WwAgfaName "Intellifont")
  177. (set #WwPSName "PostScript")
  178. (set #WwTTName "TrueType")
  179. (set #WwUFSTName "UFST")
  180. (set #WwHDHelpName "Help")
  181. (set #DocsName "Documents")
  182. (set #TemplatesName "Templates")
  183. (set #ClipartName "ClipArt")
  184. (set #SpellName "Spell")
  185. (set #WwToolsDrawerName "WwTools")
  186. (set #BulletOutlinesDest "Fonts:_bullet_outlines")
  187. (set #LocaleName "Locale")
  188.  
  189. (set #WwDevsDest (cat #NewWwDiskName ":Devs"))
  190. (set #WwPrefsDest (cat #NewWwDiskName ":Prefs"))
  191. (set #WwEnvArcDest (cat #NewWwDiskName ":Prefs/Env-Archive"))
  192. (set #WwEnvArcSysDest (cat #NewWwDiskName ":Prefs/Env-Archive/sys"))
  193. (set #WwSDest (cat #NewWwDiskName ":s"))
  194.  
  195. (set #WwToolDest (cat #NewWwDiskname ":Wordworth"))
  196. (set #DocsTool "DOCS")
  197. (set #ClipartTool "CLIPART")
  198. (set #DeviceTool "DEVICE")
  199. (set #FiltersTool "FILTERS")
  200. (set #ModulesTool "MODULES")
  201. (set #HelpTool "HELP")
  202. (set #CatalogsTool "CATALOGS")
  203. (set #WwFilesTool "WWFILES")
  204. (set #WwSpellLibTool "WWSPELLLIB")
  205. (set #WwSystemTool "WWSYSTEM")
  206. (set #DocDefaultTool "Wordworth")
  207.  
  208. (set #OldUserDictName "User_Dictionary")
  209. (set #OldAutoCorrectName "AutoCorrect.txt")
  210. (set #TempUserDictName "User_Dictionary.Temp")
  211. (set #TempAutoCorrectName "AutoCorrect.txt.Temp")
  212.  
  213.  
  214. ; ### STRING DEFINITIONS
  215. ;** Various Strings
  216. (set #ProgName (cat (cat #ProductName " ") #ProductVersion))
  217.  
  218. (set #Welcome-Help
  219. (cat "\nIf you have any problems with installing, please use the "
  220.     "\"Help\" buttons on the installer and read the appropriate sections "
  221.     "of the manual.\nIf your problems persist, you can get Technical "
  222.     "Support as explained in your 'Wordworth Instruction Book'."
  223. ))
  224.  
  225. (set #BadKick
  226. (cat #ProgName " requires Workbench 2.04 or above to work correctly."
  227. ))
  228.  
  229. (set #BadASL
  230. (cat #ProgName " requires version 38 of the ASL.Library or above to work correctly."
  231. ))
  232.  
  233. (set #BadDiskFont
  234. (cat #ProgName " requires version 37 of the diskfont.Library or above to work correctly."
  235. ))
  236.  
  237. (set #BadASLandDiskFont
  238. (cat #ProgName " requires version 38 of the ASL.Library and version 37 of the "
  239.     "diskfont.Library or above to work correctly."
  240. ))
  241.  
  242. (set #ReBoot
  243. (cat "After this installation has finished please reset your computer "
  244.     "before running " #ProgName "."
  245. ))
  246.  
  247. (set #FloppyWorkingMsg
  248. (cat "\n\n\nPlease wait...\n\n" #ProgName " is being installed to your floppy disks."
  249. ))
  250.  
  251. (set #HardDiskWorkingMsg
  252. (cat "\n\n\nPlease wait...\n\n" #ProgName " is being installed to your hard disk."
  253. ))
  254.  
  255. (set #FormatWorkingMsg
  256. (cat "Please wait... Formatting a disk."
  257. ))
  258.  
  259. (set #FloppyFinishedMsg
  260. (cat "\nAfter clicking the 'Proceed' button, place the \"" #NewWwDiskName
  261.     "\" disk in the internal disk drive and reset your Amiga.\n"
  262. ))
  263.  
  264. (set #CheckStartup
  265. (cat "\n\n\nPlease wait...\n\nThe installer is just checking your system."
  266. ))
  267.  
  268. (set #DearchivingMsg
  269. (cat "\n\n\nPlease wait..."
  270. ))
  271.  
  272.  
  273. ;** Disk Messages
  274. (set #FloppyBackupsMsg
  275. (cat "\nIMPORTANT\n\nThe installer will now create your " #ProgName 
  276.     " disks.\n\nTo keep disk changes to a minimum, if you "
  277.     "have more than one disk drive, place the newly created disks "
  278.     "('" #NewWwDiskName "' for example) into the internal disk "
  279.     "drive when prompted, and place the Wordworth install disks "
  280.     "(`" #Install1Disk "' for example) into the external disk drive."
  281. ))
  282.  
  283. (set #BlankDiskWarning
  284. (cat "\nPlease insert a 'blank' disk in the internal\n"
  285.     "disk drive and click \"Proceed\" when ready."
  286.     "\n\nWARNING: This procedure will destroy all information "
  287.     "that may already be on the disk."
  288. ))
  289.  
  290. (set #FloppyWarningHelp
  291. (cat     "\nThis procedure uses the 'format' command to "
  292.     "wipe and prepare the disk in the internal disk drive "
  293.     "for use with Wordworth."
  294.     "\n\nWrite-protect your master disks before making "
  295.     "backup copies and place the masters in a safe place."
  296.     "\n\nYou should also write-protect your backup disks "
  297.     "before clicking the \"Proceed\" button."
  298. ))
  299.  
  300. (set #NotBlankMsg1
  301. (cat "\nYou have the \""
  302. ))
  303.  
  304. (set #NotBlankMsg2
  305. (cat "\" disk in your internal disk drive.\n\nPlease "
  306.     "replace this disk with a blank one, before "
  307.     "clicking the \"Proceed\" button."
  308. ))
  309.  
  310. (set #FormatError
  311. (cat     "\nAn error occured when trying to format this disk.\n\n"
  312.     "Please ensure that the disk is in the disk drive "
  313.     "before you click the \"Proceed\" button or "
  314.     "put another disk in the drive and try again."
  315. ))
  316.  
  317. (set #FormatErrorHelp
  318. (cat "\nAn error has occured during the formatting of "
  319.     "your disk. This could be for many reasons, but more "
  320.     "commonly, either the disk was corrupt or the drive was "
  321.     "faulty.\nPlease try a different disk, check the drive "
  322.     "and then if the problem persists, contact the Technical "
  323.     "Support Department. Information on how to get Support is "
  324.     "explained in the manual."
  325. ))
  326.  
  327. (set #FormatCompleteMsg1
  328. (cat " created.\n\nPlease take out the disk "
  329.     "in the internal disk drive and label it \""
  330. ))
  331.  
  332. (set #FormatCompleteMsg2
  333. (cat "\", then click the \"Proceed\""
  334.     " button."
  335. ))
  336.  
  337. (set #FormatCompleteMsgLast
  338. (cat "\". Click the \"Proceed\" button to continue."
  339. ))
  340.  
  341. (set #InsertDiskMsg
  342. (cat "\nPlease insert the disk labelled\n\n"
  343. ))
  344.  
  345. ;** Install Stuff
  346. (set #DestChoicePrompt
  347. (cat "\n\n\nWhere would you like to install " #ProgName "?"
  348. ))
  349.  
  350. (set #DestChoicePrinterPrompt
  351. (cat "\n\n\nWhere have you installed " #ProgName "?"
  352. ))
  353.  
  354. (set #FloppyChoiceMsg
  355. (cat "On floppy disks"
  356. ))
  357.  
  358. (set #HardDiskChoiceMsg
  359. (cat "On a hard disk"
  360. ))
  361.  
  362. (set #DestChoiceHelp
  363. (cat "\nSelect the radio button \"On a hard disk\" to "
  364.     "install " #ProgName " onto your hard disk.\n\n"
  365.     "Select the radio button \"On floppy disks\" to "
  366.     "install " #ProgName " onto a set of backup disks.\n\n\n"
  367. ))
  368.  
  369. (set #DestChoicePrinterHelp
  370. (cat "\nSelect the radio button \"On a hard disk\" if "
  371.     "you installed " #ProgName " onto your hard disk.\n\n"
  372.     "Select the radio button \"On floppy disks\" if you "
  373.     "installed " #ProgName " onto a set of blank disks.\n\n\n"
  374. ))
  375.  
  376.  
  377. ;** Other strings
  378. (set #Unpackmsg1 "Unarchiving ")
  379. (set #Unpackmsg2 " to ")
  380. (set #Unpackmsg3 "\n\nPlease wait...")
  381. (set #Unpackmsg4 "Please wait...\n\nUnarchiving files.")
  382.  
  383. (set #DearchiveModulesmsg "Dearchiving and Installing Modules")
  384. (set #DearchiveFontmsg "Dearchiving and Installing Font Support\n\n")
  385. (set #DearchiveGfxmsg "Dearchiving and Installing GFX Filters")
  386. (set #DearchivingSpellmsg "Installing Spell Checker")
  387. (set #DearchiveThesmsg "Installing Thesaurus")
  388. (set #InstallMinmsg "Installing Minimum Configuration")
  389. (set #InstallOthermsg "Installing All Modules")
  390. (set #DeleteOldmsg "Please wait...\n\nRemoving old Wordworth.")
  391. (set #Creatingmsg "Creating Disk ")
  392.  
  393. (set #WorkingPrintermsg "Please wait...\n\nInstalling Printer.")
  394. (set #FormatChoiceprompt
  395.     (cat "\nWordworth needs to format and name " NumNewWwDisks " disks during installation. "
  396.         "For more information click 'Help'. Do you wish to:"
  397. ))
  398. (set #FormatChoicemsg1 "Slow Format Some Blank Disks")
  399. (set #FormatChoicemsg2 "Quick Format Some Blank Disks")
  400. (set #FormatChoice-Help
  401.     (cat "This installation utility needs to prepare " NumNewWwDisks" disks before installing "
  402.         #ProgName ". Before each disk is created, it will be formatted and named. "
  403.         "\n\nChoose '" #FormatChoicemsg1 "' if you wish to perform a full format, or \nchoose "
  404.         "'" #FormatChoicemsg2 "' to perform a quick format on disks that must have been "
  405.         "previously formatted as Fast File System disks."
  406. ))
  407. (set #Installingmsg1 (cat "Please wait...\n\nInstalling " #ProgName))
  408.  
  409.  
  410. (set #InstallBOPrompt 
  411. (cat "\nDo you wish to install your Workbench compugraphic fonts "
  412.          "for use with " #ProgName " ?"
  413. ))
  414. (set #InstallBOChoice1 "Yes")
  415. (set #InstallBOChoice2 "No")
  416. (set #InstallBOPrompt-Help 
  417. (cat "\nYou may have compugraphic fonts in the 'bullet_outlines' drawer "
  418.          "in your Workbench partition.\n\nIf you choose '" #InstallBOChoice1
  419.          "' then " #ProgName " will allow you to use any fonts you have in this drawer."
  420.          "\nChoose '" #InstallBOChoice2 "' if you do not want to install these fonts."
  421. ))
  422.  
  423. (set #BadBoot
  424. (cat "You must turn on your machine with the \"" #Install1Disk
  425.      "\" disk in the internal drive before installing or running "
  426.      #ProgName "."
  427. ))
  428.  
  429. (set #Wwdiskhelp
  430.     (cat "\nIf you know that the correct disk is in the drive, but you "
  431.         "still cannot proceed, then the name of the disk is incorrect.\n"
  432.         "The name of this disk should be \""#NewWwDiskName "\" with no "
  433.         "blank spaces before, after or within the name.\n\n"
  434.         "To rename the disk correctly, select the disk icon (the graphic "
  435.         "that appears on the Workbench screen when the disk is inserted), choose "
  436.         "the Rename command from the Workbench Icons menu, delete the contents "
  437.         "of the text gadget and type \"" #NewWwDiskName "\"."
  438.     )
  439. )
  440.  
  441. (set #diskhelp
  442.     (cat "\nIf you know that the correct disk is in the drive, but you still cannot proceed, "
  443.         "then the name of the disk is incorrect.\n"
  444.         "Ensure that the disk name is not preceded by 'copy_of_', or blank spaces before or after the disk name.\n\n\n" @askdisk-help
  445.     )
  446. )
  447.  
  448. (set #HardDiskDestChoiceMsg
  449. (cat "Where do you want to install the\n" #ProgName " drawer?"
  450. ))
  451.  
  452. (set #InstallASLChoice1 "Yes - Replace it")
  453. (set #InstallASLChoice2 "No")
  454.  
  455. (set #InstallAGChoice1 "Yes - Replace it")
  456. (set #InstallAGChoice2 "No")
  457.  
  458. (set #InstallDiskFontChoice1 "Yes - Replace it")
  459. (set #InstallDiskFontChoice2 "No")
  460.  
  461. (set #OldASLLibraryMsg
  462. (cat "You may have an old version of the ASL.library.\n\n"
  463.     #ProgName " requires you have at least version 38 of this "
  464.     "library. Do you want to replace your ASL.library with version 38 ?"
  465. ))
  466.  
  467. (set #OldASLLibraryHelp
  468. (cat #ProgName " will not work properly unless you have at least version 38 "
  469.     "of the ASL.library (Workbench 2.1 or above).\n\n"
  470.     "Choose \"" #InstallASLChoice1 "\" to replace your version with version 38 "
  471.     "and then install " #ProgName ".\nChoose \"" #InstallASLChoice2 "\" to not install "
  472.     "version 38 and to quit this installation utility."
  473. ))
  474.  
  475. (set #OldAmigaGuideLibraryMsg
  476. (cat "You may have an old version of the amigaguide.library.\n\n"
  477.     #ProgName " requires you have at least version 34.11 of this "
  478.     "library.\nDo you want to replace your amigaguide.library with version 34.11 ?"
  479. ))
  480.  
  481. (set #OldAmigaGuideLibraryHelp
  482. (cat #ProgName " will not work properly unless you have at least version 34.11 "
  483.     "of the amigaguide.library (Workbench 2.1 or above).\n\n"
  484.     "Choose \"" #InstallASLChoice1 "\" to replace your version with version 34.11 "
  485.     "and then install " #ProgName ".\nChoose \"" #InstallASLChoice2 "\" to not install "
  486.     "version 34.11 and to quit this installation utility."
  487. ))
  488.  
  489. (set #OldDiskFontLibraryMsg
  490. (cat "You may have an old version of the DiskFont.library.\n\n"
  491.     #ProgName " requires you have at least version 37 of this "
  492.     "library. Do you want to replace your DiskFont.library with version 37 ?"
  493. ))
  494.  
  495. (set #OldDiskFontLibraryHelp
  496. (cat #ProgName " will not work properly unless you have at least version 37 "
  497.     "of the DiskFont.library (Workbench 2.1 or above).\n\n"
  498.     "Choose \"" #InstallDiskFontChoice1 "\" to replace your version with version 37 "
  499.     "and then install " #ProgName ".\nChoose \"" #InstallDiskFontChoice2 "\" to not install "
  500.     "version 37 and to quit this installation utility."
  501. ))
  502.  
  503. (set #HDLibsDestChoiceMsg1
  504. (cat "Where do you want to install the Digita font libraries ?"
  505. ))
  506.  
  507. (set #HDLibsDestChoiceMsg2
  508. (cat "Where have you installed the Digita font libraries ?"
  509. ))
  510.  
  511. (set #HardDiskDestChoiceHelp
  512. (cat "Select the drawer where you want to install " #ProgName
  513.     ", then click Proceed (a new drawer titled \"" #DrawerName
  514.     "\" will be created and will contain the " #ProgName " program.)"
  515. ))
  516.  
  517. (set #HDLibsDestChoiceHelp
  518. (cat "Select the drawer where you want to install "
  519.     "the Digita font libraries"
  520.     ", then click Proceed (the default is 'Libs:').\n"
  521.     " If the destination is not 'Libs:' then the chosen "
  522.     "destination must be added to the 'Libs:' path."
  523. ))
  524.  
  525. (set #HardDiskDestChoiceConfirmMsg1
  526. (cat "\nAre you sure you want to install " #ProgName " in the "
  527.     "destination:\n\n\""
  528. ))
  529.  
  530. (set #HardDiskDestChoiceConfirmMsg2
  531. (cat "\"\n\n\n\n(A new drawer titled \"" #DrawerName "\" will be "
  532.     "created and this will contain the " #ProgName " program.)"
  533. ))
  534.  
  535. (set #HardDiskDestChoiceConfirmHelp
  536. (cat "Click YES to keep the destination drawer.\n\nClick NO "
  537.     "if you want to change the destination drawer."
  538. ))
  539.  
  540. (set #DrawerExistsMsg
  541. (cat "\nA drawer titled \"" #DrawerName "\" already exists in "
  542.     "the destination you have chosen.\n\nDo you wish to replace it "
  543.     "or choose a new destination?\n\n"
  544. ))
  545.  
  546. (set #DrawerExistsChoice1 "Replace it")
  547. (set #DrawerExistsChoice2 "Choose new destination")
  548.  
  549. (set #DrawerExistsHelp
  550. (cat "\nYou have chosen a destination drawer which already has \""
  551.     #DrawerName "\" installed there.\n\nClick \""
  552.     #DrawerExistsChoice1 "\" to replace the contents with this new version "
  553.     "of " #ProgName ".\nClick \"" #DrawerExistsChoice2 "\" to choose a "
  554.     "new destination drawer.\n\n"
  555.     "If you choose \"" #DrawerExistsChoice1 "\" then please make sure you "
  556.     "have back up copies of any documents you wish to keep."
  557. ))
  558.  
  559. (set #NoDiskSpaceMsg1
  560. (cat "\nThere is insufficient available space on your hard disk to install "
  561.     #ProgName ". You will need a minimum of "
  562. ))
  563. (set #NoDiskSpaceMsg2
  564. (cat "MB of free disk space.\n\nEither click \"Abort Install\" to exit this "
  565.     "installation and delete some files from your hard disk, or click \"Proceed\" and try a "
  566.     "different partition."
  567. ))
  568.  
  569. (set #NoLibSpaceMsg1
  570. (cat "\nThere is insufficient available space in '"
  571. ))
  572. (set #NoLibSpaceMsg2
  573. (cat "' to install the " #ProgName " libraries. You have "
  574. ))
  575. (set #NoLibSpaceMsg3a
  576. (cat "K free but will need a minimum of "
  577. ))
  578. (set #NoLibSpaceMsg3b
  579. (cat "K of free disk space.\n\nEither click \"Abort Install\" to exit this "
  580.     "installation and delete some files from your hard disk, or click \"Proceed\" to try a "
  581.     "different partition."
  582. ))
  583.  
  584. (set #LibAbortMsg1
  585. (cat "There is insufficient space in your System partition on your hard disk to install the "
  586.     #ProgName " libraries. You have "
  587. ))
  588. (set #LibAbortMsg2
  589. (cat "K free but need a minimum of "
  590. ))
  591. (set #LibAbortMsg3
  592. (cat "K of free disk space. "
  593.     "Please make space free by deleting some files and try to "
  594.     "install again or contact Digita technical support."
  595. ))
  596.  
  597. (set #ArchiveAbortMsg1
  598. (cat "There was a problem when trying to dearchive `"
  599. ))
  600. (set #ArchiveAbortMsg2
  601. (cat "', please try installing again. If you have a hard disk, try a "
  602.     "different drawer or partition.\nIf problems persist consult the "
  603.     "Help file and Instruction Book before contacting Digita Technical "
  604.     "Support."
  605. ))
  606.  
  607. (set #AskEnvArc
  608. (cat "\nIn which disk or drawer should the environment settings "
  609.     "(ENVARC:) be saved?"
  610. ))
  611. (set #AskEnvArcHelp
  612. (cat "\nThis section lets you choose in which drawer, or on which disk, "
  613.     #ProgName " places its enviroment settings.\n\nThese should normally go "
  614.     "in the \"ENVARC:\" directory of your system disk or partition.\n\n"
  615.     @askdir-help
  616. ))
  617.  
  618. (set #AskEnvArcStartup
  619. (cat "\nYour system startup sequence did not contain an assign for "
  620.     "ENVARC:. Do you wish to add this assign to \"S:User-Startup\"?"
  621. ))
  622. (set #AskEnvArcStartupHelp
  623. (cat "\nSelect YES to add assign to the user-startup file\n\n" @startup-help
  624. ))
  625.  
  626. (set #AskEnvStartup
  627. (cat "\nYour system startup sequence did not contain an assign for "
  628.     "ENV:. Do you wish to add this assign to \"S:User-Startup\"?"
  629. ))
  630. (set #AskEnvStartupHelp
  631. (cat "\nSelect YES to add assign to the user-startup file\n\n" @startup-help
  632. ))
  633.  
  634. (set #DriverUsedmsg1
  635. (cat "\n\nThe standard Workbench printer driver for the printer you chose, `"
  636. ))
  637. (set #DriverUsedmsg2
  638. (cat "', has been installed."
  639. ))
  640.  
  641. (set #InstallingFontsmsg "Please Wait...\n\nInstalling Fonts.")
  642.  
  643. (set #InstallOldWordworthFontsmsg
  644. (cat "\nFor information on how to use your existing Agfa fonts with "
  645.     #ProgName ", please refer to the 'How To' section "
  646.     "of the " #ProgName " help."
  647. ))
  648.  
  649. (set #InstallationCompletemsg "\nPrinter Installation Complete!\n")
  650.  
  651.  
  652. ; ### PROCEDURE DEFINITIONS
  653.  
  654. ;** Set up Destinations
  655. (Procedure @SetUpDestinationsHD
  656.     (
  657.     (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  658.     (set #HDModulesDest (tackon #InsideHDDest #ModulesName))
  659.     (set #HDModDisDest (tackon #HDModulesDest #ModDisName))
  660.     (set #HDCatalogsLangDest (tackon #InsideHDDest #WwCatalogsName))
  661.     (set #HDCatalogsDest (tackon #HDCatalogsLangDest Language))
  662.     (set #HDWwFiles1Dest (tackon #InsideHDDest #WwFilesDrawerName))
  663.     (set #HDWwFiles2Dest (tackon #InsideHDDest #WwFilesDrawerName))
  664.     (set #HDWwFiles3Dest (tackon #InsideHDDest #WwFilesDrawerName))
  665.     (set #HDWwFiltersDest (tackon #InsideHDDest #WwFiltersName))
  666.     (set #HDWwPictureFiltersDest (tackon #HDWwFiltersDest #WwPictureFiltersName))
  667.     (set #HDWwFontsDest (tackon #InsideHDDest #WwFontsName))
  668.     (set #HDWwAgfaDest (tackon #HDWwFontsDest #WwAgfaName))
  669.     (set #HDWwPSDest (tackon #HDWwFontsDest #WwPSName))
  670.     (set #HDWwTTDest (tackon #HDWwFontsDest #WwTTName))
  671.         (set #HDWwUFSTDest (tackon #HDWwFontsDest #WwUFSTName))
  672.     (set #HDWwHelpDest (tackon #InsideHDDest #WwHDHelpName))
  673.     (set #HDDocsDest (tackon #InsideHDDest #DocsName))
  674.     (set #HDTemplatesDest (tackon #HDDocsDest #TemplatesName))
  675.     (set #HDClipartDest (tackon #InsideHDDest #ClipartName))
  676.     (set #HDDictDest (tackon #InsideHDDest #SpellName))
  677.     (set #HDThesDest (tackon #InsideHDDest #SpellName))
  678.     (set #HDWwToolsDest (tackon #InsideHDDest #WwToolsDrawerName))
  679.   )
  680. )
  681.  
  682.  
  683. ;** define all hard disk destinations
  684. (Procedure @SetHardDiskDestinations
  685.     (
  686.         (set #ModulesDest #HDModulesDest)
  687.         (set #ModDisDest #HDModDisDest)
  688.         (set #CatalogsLangDest #HDCatalogsLangDest)
  689.     (set #CatalogsDest #HDCatalogsDest)
  690.     (set #WwFiles1Dest #HDWwFiles1Dest)
  691.     (set #WwFiles2Dest #HDWwFiles1Dest)
  692.     (set #WwFiles3Dest #HDWwFiles1Dest)
  693.     (set #WwFiltersDest #HDWwFiltersDest)
  694.     (set #WwPictureFiltersDest #HDWwPictureFiltersDest)
  695.     (set #WwFontsDest #HDWwFontsDest)
  696.     (set #WwAgfaDest #HDWwAgfaDest)
  697.     (set #WwPSDest #HDWwPSDest)
  698.     (set #WwTTDest #HDWwTTDest)
  699.     (set #WwUFSTDest #HDWwUFSTDest)
  700.     (set #WwHelpDest #HDWwHelpDest)
  701.     (set #DocsDest #HDDocsDest)
  702.     (set #TemplatesDest #HDTemplatesDest)
  703.     (set #ClipartDest #HDClipartDest)
  704.     (set #DictDest #HDDictDest)
  705.     (set #ThesDest #HDThesDest)
  706.     (set #WwToolsDest #HDWwToolsDest)
  707.     )
  708. )
  709.  
  710. ;** define all floppy disk destinations
  711. (Procedure @SetFloppyDiskDestinations
  712.     (
  713.         (set #LocaleDest (cat #NewWwDiskName ":" #LocaleName))
  714.         (set #ModulesDest (cat #NewWwDiskName ":" #ModulesName))
  715.         (set #ModDisDest (cat #NewWwDiskName ":" #ModulesName "/" #ModDisName))
  716.         (set #CatalogsLangDest (cat #NewWwDiskName ":" #WwCatalogsName))
  717.     (set #CatalogsDest (cat #NewWwDiskName ":" #WwCatalogsName "/" Language))
  718.     (set #LibsDest (cat #NewWwDiskName ":" #LibsDefault))
  719.     (set #SysFontsDest (cat #NewWwDiskName ":" #SystemFontsDest))
  720.     (set #WwFilesDest (cat #NewWwDiskName ":" #WwFilesDrawerName))
  721.     (set #WwFiles2Dest (cat #NewWwSysDiskName ":" #WwFilesDrawerName))
  722.     (set #WwFilterLibDest (cat #NewWwOutlinesDiskName ":" #WwFilesDrawerName))
  723.     (set #WwFiltersDest (cat #NewWwOutlinesDiskName ":" #WwFiltersName))
  724.     (set #WwPictureFiltersDest (cat #NewWwOutlinesDiskName ":" #WwFiltersName "/" #WwPictureFiltersName))
  725.     (set #WwFontsDest (cat #NewWwOutlinesDiskName ":" #WwFontsName))
  726.     (set #WwFontsDestOutlines (cat #NewWwOutlinesDiskName ":" #WwFontsName))
  727.     (set #WwAgfaDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwAgfaName))
  728.     (set #WwPSDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwPSName))
  729.     (set #WwTTDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwTTName))
  730.     (set #WwUFSTDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwUFSTName))
  731.     (set #DocsDest (cat #NewWwOutlinesDiskName ":" #DocsName))
  732.     (set #TemplatesDest (cat #DocsDest "/" #TemplatesName))
  733.     (set #ClipartDest (cat #NewWwSysDiskName ":" #ClipartName))
  734.  
  735.     (set #DictDest (cat #NewWwDictDiskname ":" #SpellName))
  736.     (set #ThesDest (cat #NewWwDictDiskname ":" #SpellName))
  737.  
  738.     (set #WwToolsDest (cat #NewWwSysDiskName ":" #WwToolsDrawerName))
  739.     (set #WwHelpDest (cat #NewWwOutlinesDiskname ":" #WwHDHelpName))
  740.     )
  741. )
  742.  
  743.  
  744. ;** Procedure to copy 'Unpackfile' archive to RAM:Archives
  745. (procedure @CopyArchives
  746.     (
  747.         (copyfiles
  748.             (source    UnpackFileDisk)
  749.             (dest "RAM:Archives")
  750.             (all)
  751.         )
  752.     )
  753. )
  754.  
  755.  
  756. ;** Procedure to decompress file set in 'UnpackFile' to 'UnpackDest'
  757. (procedure @UnpackFiles
  758.     (
  759.       (working #Unpackmsg1 UnpackFile #Unpackmsg2 UnpackDest #Unpackmsg3)
  760.         (set ExpandName UnpackFile)
  761.         (set #ArchiveError 0)
  762.         (set RunLHA
  763.             (cat "LHA -m e \"" ExpandName "\" \"" UnpackDest "\"")
  764.         )
  765.         (set #ArchiveError (run RunLHA))
  766.         (if (> #ArchiveError 0)
  767.             (
  768.                 (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
  769.                 (abort #ArchiveAbortMsg)
  770.             )
  771.         )
  772.     )
  773. )
  774.  
  775.  
  776. ;** Procedure to Check if Wordworth already exists in destination
  777. ;** Replace or choose again if so
  778. (procedure @CheckExistsAlready
  779.     (
  780.     (if (exists (tackon #DestDrawer #DrawerName)) ; if there is already a drawer named Wordworth3
  781.       (
  782.         (set ChooseAgainAnswer
  783.           (askbool
  784.             (prompt #DrawerExistsMsg)
  785.             (choices #DrawerExistsChoice1 #DrawerExistsChoice2)
  786.             (help #DrawerExistsHelp)
  787.             (default 1)
  788.           )
  789.         )
  790.         (if (= ChooseAgainAnswer 0)
  791.           (
  792.             (set WwNotExists 0)
  793.           )
  794.           (;else
  795.             (@PreserveTextFiles)
  796.             (@DeleteOldWordworth3)
  797.             (set WwNotExists 1)
  798.           )
  799.         )
  800.       )
  801.       (;else
  802.         (set WwNotExists 1)
  803.       )
  804.     );endif
  805.     )
  806. )
  807.  
  808. ;** Procedure to choose the hard disk destination
  809. (procedure @FindHDDest
  810.     (
  811.         (set WwNotExists 0)
  812.     (while (= WwNotExists 0)
  813.             (
  814.           (@ChooseHDDest)
  815.           (while (< (getdiskspace #DestDrawer) HDSpaceNeededBytes)
  816.             (
  817.               (if (< (getdiskspace #DestDrawer) HDSpaceNeededBytes)
  818.                 (
  819.                             (if (= @user-level 0)
  820.                               (
  821.                                 (user 2)
  822.                                 (set #UserNovice 1)
  823.                               )
  824.                             )
  825.                   (message #NoDiskSpaceMsg1 (/ (/ HDSpaceNeededBytes 1024) 1024) #NoDiskSpaceMsg2)
  826.                   (@ChooseHDDest)
  827.                 )
  828.                  )
  829.             )
  830.             ) ;end while
  831.             (@CheckExistsAlready)
  832.         )
  833.       );end while
  834.     (if (= #UserNovice 1)
  835.       (user 0)
  836.     )
  837.     )
  838. )
  839.  
  840. (procedure @ChooseHDDest
  841.     (
  842.         ;** Find default drawer
  843.         (set #DefaultDest (getassign "Work" "d"))
  844.         (if (= #DefaultDest "")
  845.             (
  846.                 (set #DefaultDest (getassign "HD3" "d"))
  847.                 (if (= #DefaultDest "")
  848.                     (
  849.                         (set #DefaultDest (getassign "HD2" "d"))
  850.                         (if (= #DefaultDest "")
  851.                 (
  852.                 (set #DefaultDest (getassign "HD1" "d"))
  853.                 (if (= #DefaultDest "")
  854.                   (
  855.                     (set #DefaultDest (getassign "DH1" "d"))
  856.                     (if (= #DefaultDest "")
  857.                       (
  858.                         (set #DefaultDest (getassign "HD0" "d"))
  859.                         (if (= #DefaultDest "")
  860.                           (
  861.                             (set #DefaultDest "DH0:")
  862.                             (if (= #UserNovice 1)
  863.                               (user 2)
  864.                             )
  865.                           )
  866.                         )
  867.                       )
  868.                     )
  869.                   )
  870.                 )
  871.               )
  872.             )
  873.           )
  874.         )
  875.             )
  876.         )
  877.         ;** Ask for destination
  878.         (set #DestDrawer
  879.             (askdir
  880.                 (prompt #HardDiskDestChoiceMsg)
  881.                 (help #HardDiskDestChoiceHelp)
  882.                 (default #DefaultDest)
  883.             )
  884.         )
  885.     (if (= #UserNovice 1)
  886.       (user 0)
  887.     )
  888.     )
  889. )
  890.  
  891.  
  892. ;** Create all Ww drawers in #DestDrawer and set paths to them
  893. (procedure @CreateDrawers
  894.     (
  895.         (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  896.         ;** Make the Wordworth drawer
  897.         (makedir #InsideHDDest (infos))
  898.  
  899.         ;** Make the Modules drawer
  900.         (set #HDModulesDest (tackon #InsideHDDest #ModulesName))
  901.         (makedir #HDModulesDest (infos))
  902.             ;** Make the Modules Disabled drawer
  903.             (set #HDModDisDest (tackon #HDModulesDest #ModDisName))
  904.             (makedir #HDModDisDest (infos))
  905.  
  906.         ;** Make the Catalogs drawer
  907.         (set #HDCatalogsLangDest (tackon #InsideHDDest #WwCatalogsName))
  908.         (makedir #HDCatalogsLangDest)
  909.         ;** Make the language drawer
  910.         (set #HDCatalogsDest (tackon #HDCatalogsLangDest Language))
  911.             (makedir #HDCatalogsDest)
  912.  
  913.         ;** Make the WwFiles drawer (just do once for #WwFilesDrawerName)
  914.         (set #HDWwFiles1Dest (tackon #InsideHDDest #WwFilesDrawerName))
  915.         (makedir #HDWwFiles1Dest)
  916.  
  917.     ;** Make the Filters drawer
  918.     (set #HDWwFiltersDest (tackon #InsideHDDest #WwFiltersName))
  919.     (makedir #HDWwFiltersDest)
  920.         ;** Make Picture Filters drawer
  921.         (set #HDWwPictureFiltersDest (tackon #HDWwFiltersDest #WwPictureFiltersName))
  922.         (makedir #HDWwPictureFiltersDest)
  923.  
  924.         ;** Make the WwFonts drawer
  925.         (set #HDWwFontsDest (tackon #InsideHDDest #WwFontsName))
  926.         (makedir #HDWwFontsDest (infos))
  927.             ;** Make the Agfa drawer
  928.             (set #HDWwAgfaDest (tackon #HDWwFontsDest #WwAgfaName))
  929.             (makedir #HDWwAgfaDest (infos))
  930.             ;** Make the PS drawer
  931.             (set #HDWwPSDest (tackon #HDWwFontsDest #WwPSName))
  932.             (makedir #HDWwPSDest)
  933.             ;** Make the TT drawer
  934.             (set #HDWwTTDest (tackon #HDWwFontsDest #WwTTName))
  935.             (makedir #HDWwTTDest)
  936.             ;** Make the UFST drawer
  937.             (set #HDWwUFSTDest (tackon #HDWwFontsDest #WwUFSTName))
  938.             (makedir #HDWwUFSTDest)
  939.  
  940.         ;** Make the WwHelp drawer
  941.         (set #HDWwHelpDest (tackon #InsideHDDest #WwHDHelpName))
  942.         (makedir #HDWwHelpDest)
  943.  
  944.         ;** Make the Docs drawer
  945.         (set #HDDocsDest (tackon #InsideHDDest #DocsName))
  946.         (makedir #HDDocsDest (infos))
  947.             ;** Make the Templates drawer
  948.             (set #HDTemplatesDest (tackon #HDDocsDest #TemplatesName))
  949.             (makedir #HDTemplatesDest (infos))
  950.  
  951.         ;** Make the Clipart drawer
  952.         (set #HDClipartDest (tackon #InsideHDDest #ClipartName))
  953.         (makedir #HDClipartDest (infos))
  954.  
  955.         ;** Make the Spell drawer
  956.         (set #HDDictDest (tackon #InsideHDDest #SpellName))
  957.         (makedir #HDDictDest)
  958.     (set #HDThesDest #HDDictDest)
  959.  
  960.         ;** Make the WwTools drawer
  961.         (set #HDWwToolsDest (tackon #InsideHDDest #WwToolsDrawerName))
  962.         (makedir #HDWwToolsDest (infos))
  963.  
  964.     (complete 10)
  965.     )
  966. )
  967.  
  968. ;** Procedure to dearchive basic prog files (like WwFiles & program)
  969. (procedure @DearchiveProgFiles1
  970.     (
  971.         (working #DearchivingMsg)
  972.  
  973.         (set #FileSourceName #WordworthSourceName)
  974.         (set #FileSourceDisk #Install1Disk)
  975.         (@GetDisk)
  976.         (set UnpackFile #FileSourceName)
  977.         (set UnpackDest (cat #InsideHDDest "/"))
  978.         (@UnpackFiles)
  979.  
  980.         (set UnpackFile #WwFiles1SourceName)
  981.         (set UnpackDest (cat #WwFiles1Dest "/"))
  982.         (@UnpackFiles)
  983.  
  984.         (set UnpackFile #WwFiles3SourceName)
  985.         (set UnpackDest (cat #WwFiles3Dest "/"))
  986.         (@UnpackFiles)
  987.  
  988.         (set UnpackFile #CatalogsSourceName)
  989.         (set UnpackDest (cat #CatalogsDest "/"))
  990.         (@UnpackFiles)
  991.     )
  992. )
  993.  
  994. ;** Procedure to dearchive second set of basic files from disk 2
  995. (procedure @DearchiveProgFiles2
  996.     (
  997.         (set #FileSourceName #WwprogSourceName)
  998.         (set #FileSourceDisk #Install2Disk)
  999.         (@GetDisk)
  1000.         (set UnpackFile #FileSourceName)
  1001.         (set UnpackDest (cat #InsideHDDest "/"))
  1002.         (@UnpackFiles)
  1003.  
  1004.         (set UnpackFile #WwFiles2SourceName)
  1005.         (set UnpackDest (cat #WwFiles2Dest "/"))
  1006.         (@UnpackFiles)
  1007.  
  1008.         (set UnpackFile #WwHelpSourceName)
  1009.       (set UnpackDest (cat #WwHelpDest "/"))
  1010.         (@UnpackFiles)
  1011.     )
  1012. )
  1013.  
  1014. ;** Dearchive Filter library
  1015. (procedure @DearchiveFilterLibrary
  1016.     (
  1017.       (set #FileSourceName #FiltersSourceName)
  1018.     (set #FileSourceDisk #Install2Disk)
  1019.     (@GetDisk)
  1020.     (set UnPackFile #FileSourceName)
  1021.     (set UnPackDest (cat #WwFiles3Dest "/"))
  1022.     (@UnpackFiles)
  1023.   )
  1024. )
  1025.  
  1026. ;** Procedure to dearchive Custom modules to hard disk
  1027. (procedure @DearchiveCustomModulesHD
  1028.     (
  1029.         (@CreateDrawers)
  1030.         (@SetHardDiskDestinations)
  1031.       (set #HDLibsDestChoiceMsg #HDLibsDestChoiceMsg1)
  1032.       (@CheckLibsDest)
  1033.  
  1034.       (@DearchiveScreenFonts)
  1035.     (@CheckAmigaGuide)
  1036.         (@DearchiveModules)
  1037.       (complete 40)
  1038.         (@DearchiveProgFiles1)
  1039.       (@DearchiveFontSupport)
  1040.       (complete 50)
  1041.       (@DearchiveProgFiles2)
  1042.        (@DearchiveFilterLibrary)
  1043.       (@DearchiveGFXFilters)
  1044.         (complete 65)
  1045.       (@DearchiveExtras)
  1046.       (complete 70)
  1047.       (@DearchiveSpell)
  1048.       (complete 75)
  1049.       (@DearchiveThes)
  1050.       (complete 80)
  1051.     )
  1052. )
  1053.  
  1054. ;** routine to get disk specified in '#FileSourceDisk'
  1055. (procedure @GetDisk
  1056.     (
  1057.         (askdisk
  1058.             (prompt #InsertDiskMsg #FileSourceDisk)
  1059.             (help #diskhelp)
  1060.             (dest #FileSourceDisk)
  1061.         )
  1062.     )
  1063. )
  1064.  
  1065. ;** Procedure to de-archive screen fonts
  1066. (procedure @DearchiveScreenFonts
  1067.     (
  1068.         (set #Counter 0)
  1069.         (while (< #Counter #NumFonts)
  1070.             (set #FontName
  1071.                 (select #Counter
  1072.                     #Font1Name
  1073.                     #Font2Name
  1074.                     #Font3Name
  1075.                 )
  1076.             )
  1077.             (set #CheckFont (cat #SystemFontsDest ":" #FontName))
  1078.             (if (exists #CheckFont)
  1079.               (
  1080.                 (protect #CheckFont "+r+w+e+d")
  1081.               )
  1082.             )
  1083.           (set #Counter (+ #Counter 1))
  1084.         )
  1085.         (set #FileSourceDisk #Install1Disk)
  1086.         (set #FileSourceName #SystemFontsSourceName)
  1087.         (@GetDisk)
  1088.     (set UnpackFile #FileSourceName)
  1089.         (set UnpackDest (cat #SystemFontsDest ":"))
  1090.         (@UnpackFiles)
  1091.   )
  1092. )
  1093.  
  1094.  
  1095. ;** Procedure to de-archive amigaguide library
  1096. (procedure @DearchiveAmigaGuide
  1097.     (
  1098.         (set #FileSourceName #AmigaGuideSourceName)
  1099.         (set #FileSourceDisk #Install1Disk)
  1100.         (@GetDisk)
  1101.         (set UnpackFile #FileSourceName)
  1102.         (set UnpackDest (cat #LibsDefault ":"))
  1103.         (@UnpackFiles)
  1104.   )
  1105. )
  1106.  
  1107.  
  1108. ;** Procedure to de-archive and install Modules
  1109. (procedure @DearcMods
  1110.     (
  1111.         (working #DearchiveModulesmsg)
  1112.  
  1113.         (if (= FloppyInstall 1)
  1114.             (
  1115.             (set UnpackFile (cat "RAM:Archives/" #PassModuleOptionName))
  1116.             )
  1117.             (
  1118.                 (set #FileSourceDisk #Install1Disk)
  1119.             (@GetDisk)
  1120.  
  1121.             (set UnpackFile #PassModuleOptionSourceName)
  1122.           )
  1123.         )
  1124.  
  1125.       (set UnpackDest (cat #ModulesDest "/") )
  1126.       (@UnpackFiles)
  1127.  
  1128.         ;now delete it from storage if it exists
  1129.         (set #ModOld (tackon #ModDisDest #PassModuleName))
  1130.         (if (exists #ModOld)
  1131.             (
  1132.                 (delete #ModOld
  1133.                     (optional "force")
  1134.                 )
  1135.               (delete (cat #ModOld ".info")
  1136.                   (optional "force")
  1137.               )
  1138.             )
  1139.         )
  1140.  
  1141.         (if (= FloppyInstall 1)
  1142.             (
  1143.             (run (cat "delete RAM:Archives/" #PassModuleOptionName) (safe))
  1144.             )
  1145.         )
  1146.     )
  1147. )
  1148.  
  1149. ;** Procedure to pass relevant module names to be dearchived
  1150. (procedure @DearchiveModules
  1151.     (
  1152.         (working #DearchiveModulesmsg)
  1153.  
  1154.         (set #PassModuleOptionSourceName #ModuleOption1SourceName)
  1155.         (set #PassModuleName #Module1Name)
  1156.         (set #PassModuleOptionName #ModuleOption1Name)
  1157.         (@DearcMods)
  1158.         
  1159.         (set #PassModuleOptionSourceName #ModuleOption2SourceName)
  1160.         (set #PassModuleName #Module2Name)
  1161.         (set #PassModuleOptionName #ModuleOption2Name)
  1162.         (@DearcMods)
  1163.         
  1164.         (set #PassModuleOptionSourceName #ModuleOption3SourceName)
  1165.         (set #PassModuleName #Module3Name)
  1166.         (set #PassModuleOptionName #ModuleOption3Name)
  1167.         (@DearcMods)
  1168.     )
  1169. )
  1170.  
  1171.  
  1172. ;** get lib destination
  1173. (procedure @GetLibDest
  1174.     (
  1175.         (if (= @user-level 2)
  1176.             (
  1177.                 ;** Ask for destination
  1178.                 (set #LibsDest
  1179.                     (askdir
  1180.                         (prompt #HDLibsDestChoiceMsg)
  1181.                         (help #HDLibsDestChoiceHelp)
  1182.                         (default LibsPath)
  1183.                     )
  1184.                 )
  1185.             )
  1186.             (
  1187.                 (set #LibsDest LibsPath)
  1188.             )
  1189.         ) ;end if
  1190.   )
  1191. )
  1192.  
  1193. ;** Procedure to check Libs destination
  1194. (procedure @CheckLibsDest
  1195.     (
  1196.         (set LibsPath (expandpath (cat #LibsDefault ":")))
  1197.       (@GetLibDest)
  1198.          (set SystemSpace TotalFontLibSpace)
  1199.          (while (< (getdiskspace #LibsDest) SystemSpace)
  1200.              (
  1201.            (set #LibsDestSpace (getdiskspace #LibsDest))
  1202.                 (if (= @user-level 2)
  1203.                 (
  1204.               (if (< #LibsDestSpace SystemSpace)
  1205.                 (
  1206.                   (message #NoLibSpaceMsg1 #LibsDest
  1207.                       #NoLibSpaceMsg2 (/ #LibsDestSpace 1024) #NoLibSpaceMsg3a
  1208.                       (/ SystemSpace 1024) #NoLibSpaceMsg3b
  1209.                   )
  1210.                   (@GetLibDest)
  1211.                 )
  1212.                  )
  1213.             )
  1214.             (
  1215.                 (abort #LibAbortMsg1 (/ #LibsDestSpace 1024) 
  1216.                     #LibAbortMsg2 (/ SystemSpace 1024) #LibAbortMsg3
  1217.                 )
  1218.             )
  1219.         ); endif
  1220.       )
  1221.     ) ;end while
  1222.   )
  1223. )
  1224.  
  1225.  
  1226. ;** Procedure to de-archive and install Font Support
  1227. (procedure @DearchiveFontSupport
  1228.     (
  1229.         (working #DearchiveFontmsg)
  1230.         (set n 0)
  1231.     ;delete old small digita libraries
  1232.     (if (exists (cat #LibsDest "/" #IFlibraryName))
  1233.         (
  1234.             (delete (cat #LibsDest "/" #IFlibraryName)
  1235.                 (optional "force")
  1236.             )
  1237.         )
  1238.     )
  1239.     
  1240.         (set #FileSourceDisk #Install1Disk)
  1241.     (@GetDisk)
  1242.     (set UnpackFile #FontType1SourceName)
  1243.       (set UnpackDest (cat #LibsDest "/") )
  1244.       (@UnpackFiles)
  1245.  
  1246.     (set #FileSourceName #UFSTSourceName)
  1247.         (set #FileSourceDisk #Install2Disk)
  1248.     (@GetDisk)
  1249.     (set UnpackFile #FileSourceName)
  1250.     (set UnpackDest (cat #WwUFSTDest "/"))
  1251.     (@UnpackFiles)
  1252.  
  1253.     (set UnpackFile #IntelliSourceName)
  1254.     (set UnpackDest (cat #WwAgfaDest "/"))
  1255.     (@UnpackFiles)
  1256.  
  1257.     (set UnpackFile #WwToolsSourceName)
  1258.         (set UnpackDest (cat #WwToolsDest "/"))
  1259.     (@UnpackFiles)
  1260.  
  1261.     (copyfiles
  1262.         (source (cat #Install2Disk ":Utils"))            ;Copy install font scripts
  1263.         (dest "RAM:")                                                            ;to RAM for later on
  1264.         (pattern "FontScript#?")
  1265.         (nogauge)
  1266.         (optional "force")
  1267.     )
  1268.  
  1269.         (copyfiles
  1270.             (source #WwToolsDest)                                            ;Copy `InstallOutlines'
  1271.             (dest "RAM:")                                                            ;to RAM for later on
  1272.             (pattern "InstallOutlines")
  1273.             (nogauge)
  1274.             (optional "nofail")
  1275.         )
  1276.     )
  1277. )
  1278.  
  1279. ;** Procedure to de-archive and install GFX Filters
  1280. (procedure @DearchiveGFXFilters
  1281.     (
  1282.         (if (= FloppyInstall 1)
  1283.             (
  1284.             (set UnpackFile (cat "RAM:Archives/" #GfxFilter1Name))
  1285.             )
  1286.             (
  1287.                 (set #FileSourceDisk #Install2Disk)
  1288.             (@GetDisk)
  1289.         
  1290.             (set UnpackFile #GfxFilter1SourceName)
  1291.             )
  1292.         )
  1293.  
  1294.         (working #DearchivingGfxMsg)
  1295.  
  1296.       (set UnpackDest (cat #WwPictureFiltersDest "/") )
  1297.       (@UnpackFiles)
  1298.  
  1299.         (if (= FloppyInstall 1)
  1300.         (run (cat "delete RAM:Archives/" #GfxFilter1Name) (safe))
  1301.         )
  1302.     )
  1303. )
  1304.  
  1305. (procedure @DearchiveTutorials
  1306.     (
  1307.         (if (= FloppyInstall 1)
  1308.             (
  1309.             (set #FileSourceName (cat "RAM:Archives/" #CustomExtras1Name))
  1310.             )
  1311.             (
  1312.                 (set #FileSourceName #CustomExtras1SourceName)
  1313.                 (set #FileSourceDisk #Install2Disk)
  1314.                 (@GetDisk)
  1315.             )
  1316.         )
  1317.  
  1318.         (working #DearchivingMsg)
  1319.  
  1320.         (set UnpackFile #FileSourceName)
  1321.         (set UnpackDest (cat #DocsDest "/" ))
  1322.         (@UnpackFiles)
  1323.  
  1324.     (if (= FloppyInstall 0)
  1325.         (
  1326.         ;set default tool type to hard disk dest, for all documents
  1327.         (foreach #DocsDest "#?"
  1328.             (
  1329.                 (tooltype
  1330.                     (dest (cat #DocsDest "/" @each-name))
  1331.                     (setdefaulttool (cat #InsideHDDest "/" #DocDefaultTool))
  1332.                 )
  1333.             )
  1334.         ); end foreach
  1335.           )
  1336.           (
  1337.             (run (cat "delete RAM:Archives/" #CustomExtras1Name) (safe))
  1338.           )
  1339.         )
  1340.   )
  1341. )
  1342.  
  1343.  
  1344. (procedure @DearchiveTemplates
  1345.     (
  1346.         (if (= FloppyInstall 1)
  1347.             (
  1348.             (set #FileSourceName (cat "RAM:Archives/" #CustomExtras2Name))
  1349.             )
  1350.             (
  1351.                 (set #FileSourceName #CustomExtras2SourceName)
  1352.                 (set #FileSourceDisk #Install2Disk)
  1353.                 (@GetDisk)
  1354.             )
  1355.         )
  1356.  
  1357.         (working #DearchivingMsg)
  1358.  
  1359.         (set UnpackFile #FileSourceName)
  1360.         (set UnpackDest (cat #TemplatesDest "/" ))
  1361.         (@UnpackFiles)
  1362.  
  1363.         (if (= FloppyInstall 1)
  1364.         (run (cat "delete RAM:Archives/" #CustomExtras2Name) (safe))
  1365.         )
  1366.     )
  1367. )
  1368.         
  1369.  
  1370. (procedure @DearchiveClipArt
  1371.     (
  1372.         (if (= FloppyInstall 1)
  1373.             (
  1374.             (set #FileSourceName (cat "RAM:Archives/" #CustomExtras3Name))
  1375.             )
  1376.             (
  1377.                 (set #FileSourceName #CustomExtras3SourceName)
  1378.                 (set #FileSourceDisk #Install2Disk)
  1379.                 (@GetDisk)
  1380.             )
  1381.         )
  1382.  
  1383.         (set UnpackFile #FileSourceName)
  1384.         (set UnpackDest (cat #ClipartDest "/" ))
  1385.         (@UnpackFiles)
  1386.  
  1387.         (if (= FloppyInstall 1)
  1388.         (run (cat "delete RAM:Archives/" #CustomExtras3Name) (safe))
  1389.         )
  1390.     )
  1391. )
  1392.  
  1393.  
  1394. ;** Procedure to de-archive and install Extras
  1395. (procedure @DearchiveExtras
  1396.     (
  1397.       (@DearchiveTutorials)
  1398.       (@DearchiveTemplates)
  1399.       (@DearchiveClipArt)
  1400.     )
  1401. )
  1402.  
  1403. ;** Install Spell files
  1404. (procedure @DearchiveSpell
  1405.     (
  1406.         (if (= FloppyInstall 1)
  1407.             (
  1408.             (set #FileSourceName (cat "RAM:Archives/" #DictionaryName))
  1409.             )
  1410.             (
  1411.                 (set #FileSourceName #DictionarySourceName)
  1412.                 (set #FileSourceDisk #Install3Disk)
  1413.                 (@GetDisk)
  1414.             )
  1415.         )
  1416.  
  1417.         (working #DearchivingSpellmsg)
  1418.  
  1419.         (set UnpackFile #FileSourceName)
  1420.         (set UnpackDest (cat #DictDest "/" ))
  1421.         (@UnpackFiles)
  1422.  
  1423.         (if (= FloppyInstall 1)
  1424.         (run (cat "delete RAM:Archives/" #DictionaryName) (safe))
  1425.         )
  1426.     )
  1427. )
  1428.  
  1429. ;** Install Thes files
  1430. (procedure @DearchiveThes
  1431.     (
  1432.         (if (= FloppyInstall 1)
  1433.             (
  1434.             (set #FileSourceName (cat "RAM:Archives/" #ThesaurusName))
  1435.             )
  1436.             (
  1437.                 (set #FileSourceName #ThesaurusSourceName)
  1438.                 (set #FileSourceDisk #Install3Disk)
  1439.                 (@GetDisk)
  1440.             )
  1441.         )
  1442.  
  1443.         (working #DearchivingThesmsg)
  1444.  
  1445.         (set UnpackFile #FileSourceName)
  1446.         (set UnpackDest (cat #ThesDest "/" ))
  1447.         (@UnpackFiles)
  1448.  
  1449.         (if (= FloppyInstall 1)
  1450.         (run (cat "delete RAM:Archives/" #ThesaurusName) (safe))
  1451.         )
  1452.   )
  1453. )
  1454.  
  1455.  
  1456. ;** Routine to preserve text files (Librarian, UserDictionary, AutoCorrect)
  1457. (procedure @PreserveTextFiles
  1458.     (
  1459.         (@SetupDestinationsHD)
  1460.         (if (exists (tackon #InsideHDDest #OldAutoCorrectName))
  1461.             (
  1462.                 (set #OldAutoCorrect (tackon #InsideHDDest #OldAutoCorrectName))
  1463.                 (set #TempAutoCorrect (cat #InsideHDDest "/" #TempAutoCorrectName))
  1464.                 (rename #OldAutoCorrect #TempAutoCorrect)
  1465.             )
  1466.         )
  1467.         (if (exists (tackon #HDDictDest #OldUserDictName))
  1468.             (
  1469.                 (set #OldUserDict (tackon #HDDictDest #OldUserDictName))
  1470.                 (set #TempUserDict (tackon #HDDictDest #TempUserDictName))
  1471.                 (rename #OldUserDict #TempUserDict)
  1472.             )
  1473.         )
  1474.     (set #TextPreservedFlag 1)
  1475.   )
  1476. )
  1477.  
  1478. ;** Routine to retrieve old text files
  1479. (procedure @RetrieveOldTextFiles
  1480.     (
  1481.         (if (exists (tackon #InsideHDDest #TempAutoCorrectName))
  1482.             (
  1483.                 (set #OldAutoCorrect (tackon #InsideHDDest #OldAutoCorrectName))
  1484.                 (set #TempAutoCorrect (cat #InsideHDDest "/" #TempAutoCorrectName))
  1485.                 (delete #OldAutoCorrect
  1486.                     (optional "force")
  1487.                 )
  1488.                 (rename #TempAutoCorrect #OldAutoCorrect)
  1489.             )
  1490.         )
  1491.         (if (exists (tackon #HDDictDest #TempUserDictName))
  1492.             (
  1493.                 (set #OldUserDict (tackon #HDDictDest #OldUserDictName))
  1494.                 (set #TempUserDict (cat #HDDictDest "/" #TempUserDictName))
  1495.                 (delete #OldUserDict
  1496.                     (optional "force")
  1497.                 )
  1498.                 (rename #TempUserDict #OldUserDict)
  1499.             )
  1500.         )
  1501.     )
  1502. )
  1503.  
  1504.  
  1505. ;** This routine will delete the modules drawer
  1506. (procedure @DeleteOldWordworth3
  1507.     (
  1508.         (working #DeleteOldmsg)
  1509.         (set ChosenDrawer (tackon #DestDrawer (cat #DrawerName "/" #ModulesName)))
  1510.         (set DeleteDrawer (cat "delete " ChosenDrawer " all force"))
  1511.         (Run DeleteDrawer)
  1512.     )
  1513. )
  1514.  
  1515. (procedure @CheckDisks
  1516.     (
  1517.         ;** Check to make sure that none of the Wordworth disks
  1518.         ;** are in the internal drive before creating blank ones.
  1519.         (set NumberDisks (+ NumberInstallDisks NumNewWwDisks))
  1520.         (set DiskBlank 1)
  1521.         (set n 0)
  1522.         (until (OR (= n NumberDisks) (= DiskBlank 0))
  1523.             (
  1524.                 (set #CheckDiskName
  1525.                     (select n
  1526.                         #Install1Disk
  1527.                         #Install2Disk
  1528.                         #Install3Disk
  1529.                         #NewWwDiskName
  1530.                         #NewWwSysDiskName
  1531.                         #NewWwOutlinesDiskName
  1532.                         #NewWwDictDiskName
  1533.                     )
  1534.                 )
  1535.                 (if (= (getassign "df0" "d") (cat #CheckDiskName ":"))
  1536.                     (    ;disk is not blank
  1537.                         (set DiskBlank 0)
  1538.                     )
  1539.                 )
  1540.                 (set n (+ n 1))
  1541.             )
  1542.         )
  1543.     )
  1544. )
  1545.  
  1546.  
  1547. ;** Format and name the disk given in #FormatDiskName
  1548. (procedure @FormatDisk
  1549.     (
  1550.         (working #FormatWorkingMsg)
  1551.         ;*** USE 2.0 FORMAT COMMAND ***
  1552.         (if (= FormatChoice 0)
  1553.             (
  1554.                 (set FormatCheck
  1555.                     (run ("Format drive=df0: name=%s FFS NOICONS" #FormatDiskName))
  1556.                 )
  1557.             )
  1558.             (
  1559.                 (set FormatCheck
  1560.                     (run ("Format drive=df0: name=%s FFS QUICK NOICONS" #FormatDiskName))
  1561.                 )
  1562.             )
  1563.         )
  1564.     (if (OR (> FormatCheck 0) (< FormatCheck 0))
  1565.         (set NoError 1)
  1566.            (set NoError 0)
  1567.     )
  1568.         (if (= NoError 0)
  1569.             (
  1570.                 (if (= #FormatDiskName #NewWwDiskName)
  1571.                     (
  1572.                         (run "Install2.1 df0:")
  1573.                         (run "resident Install2.1 REMOVE")
  1574.                     )
  1575.                 )
  1576.             )
  1577.         ); endif
  1578.     )
  1579. )
  1580.  
  1581. ;** routine to check disk in drive ok and format it if so
  1582. (procedure @makedisk
  1583.     (
  1584.     (set NoError 1)
  1585.  
  1586.     (while (= NoError 1)
  1587.         (
  1588.             ;** Make sure that the install disks are not in the drive
  1589.             (run "Wait 6")  ;Wait a bit for disk access to stop
  1590.             (@CheckDisks)
  1591.             (if (= DiskBlank 0)
  1592.               (
  1593.                 (message #NotBlankMsg1 #CheckDiskName #NotBlankMsg2)
  1594.               )
  1595.               (
  1596.                 ;** Else for each disk in turn, Format it
  1597.                 (set #FormatDiskName
  1598.                   (select x
  1599.                     #NewWwDiskName
  1600.                     #NewWwSysDiskName
  1601.                     #NewWwOutlinesDiskName
  1602.                     #NewWwDictDiskName
  1603.                   )
  1604.                    )
  1605.                 (set NoError 1)
  1606.                 (@FormatDisk)
  1607.                 (if (= NoError 0)
  1608.                   (
  1609.                     (set x (+ x 1))
  1610.                   )
  1611.                   (
  1612.                     (message #FormatError (help #FormatErrorHelp))
  1613.                   )
  1614.                 );endif
  1615.               )
  1616.             );endif
  1617.         )
  1618.     );endwhile
  1619.   (working #FloppyWorkingMsg)
  1620.   )
  1621. )
  1622.  
  1623. ;** routine to make disk 1 (WordworthLite)
  1624. (procedure @CreateDisk1
  1625.     (
  1626.     ;** USE INSTALL DISK 1 and copy archives to RAM:
  1627.         (set #FileSourceDisk #Install1Disk)
  1628.         (@GetDisk)
  1629.  
  1630.         (makedir "RAM:Archives")
  1631.     (set UnpackFileDisk (cat #Install1Disk ":Archive"))
  1632.     (@CopyArchives)
  1633.  
  1634.     (if (OR (= @language "français") (= @language "deutsch"))
  1635.         (
  1636.             (copyfiles
  1637.                 (source (cat #Install1Disk ":" #LocaleName))
  1638.                 (dest (cat "RAM:" #LocaleName))
  1639.                 (all)
  1640.                 (optional "force")
  1641.             )
  1642.  
  1643.                 ;** delete the utilities.catalog 'cos it's not needed on floppy
  1644.           (delete 
  1645.               (cat "RAM:" #LocaleName "/catalogs/" Language "/sys/utilities.catalog")
  1646.               (optional "force")
  1647.           )
  1648.         )
  1649.     )
  1650.  
  1651.     (copyfiles
  1652.         (source (cat #Install1Disk ":Libs"))
  1653.         (dest "RAM:Libs")
  1654.         (all)
  1655.         (optional "force")
  1656.     )
  1657.  
  1658.     (copyfiles
  1659.       (source (cat #Install1Disk ":Devs"))            ;copy devs from install disk
  1660.       (dest "RAM:Devs")
  1661.       (all)
  1662.       (optional "force")
  1663.     )
  1664.  
  1665.     (copyfiles                                                                    ;copy env-archive from install disk
  1666.       (source (cat #Install1Disk ":prefs/env-archive/sys"))
  1667.       (dest "RAM:env-archive")
  1668.       (all)
  1669.       (optional "force")
  1670.     )
  1671.  
  1672.     (copyfiles                                                                    ;copy startup-seq
  1673.       (source (cat #Install1Disk ":Archive/Boot"))
  1674.       (dest "RAM:S")
  1675.       (pattern "startup-sequence")
  1676.       (optional "force")
  1677.     )
  1678.  
  1679.  
  1680.     ;** CREATE DISK
  1681.         (set x 0)
  1682.     (message #BlankDiskWarning)
  1683.        (@makedisk)
  1684.  
  1685.     (set #FileSourceDisk #NewWwDiskName)
  1686.     (@GetDisk)
  1687.         (working #Creatingmsg #NewWwDiskName)
  1688.  
  1689.     (makedir #CatalogsLangDest)
  1690.     (makedir #CatalogsDest)
  1691.     (makedir #LibsDest)
  1692.     (makedir #ModulesDest (infos))
  1693.     (makedir #ModDisDest (infos))
  1694.         (makedir #WwDevsDest)
  1695.         (makedir #WwPrefsDest)
  1696.         (makedir #WwEnvArcDest)
  1697.         (makedir #WwEnvArcSysDest)
  1698.         (makedir #WwSDest)
  1699.  
  1700.  
  1701.     ;** Now dearchive files to NewWwDisk
  1702.     (if (OR (= @language "français") (= @language "deutsch"))
  1703.         (
  1704.             (makedir #LocaleDest)
  1705.             (copyfiles
  1706.                 (source "RAM:" #LocaleName)
  1707.                 (dest (cat #NewWwDiskName ":" #LocaleName))
  1708.                 (all)
  1709.                 (optional "force")
  1710.                 (nogauge)
  1711.             )
  1712.                 (run (cat "delete RAM:" #LocaleName " all") (safe))
  1713.         )
  1714.     )
  1715.  
  1716.     (copyfiles
  1717.         (source "RAM:Libs")    ;copy libs from ram
  1718.         (dest (cat #NewWwDiskName ":Libs"))
  1719.         (all)
  1720.         (optional "force")
  1721.     )
  1722.         (run "delete RAM:Libs all" (safe))
  1723.  
  1724.     (copyfiles
  1725.       (source "RAM:Devs")                                        ;copy devs from ram
  1726.       (dest (cat #NewWwDiskName ":Devs"))
  1727.       (all)
  1728.       (optional "force")
  1729.     )
  1730.         (run "delete RAM:Devs all" (safe))
  1731.  
  1732.     (copyfiles                                                            ;copy env-archive from ram
  1733.       (source "RAM:Env-Archive")
  1734.       (dest (cat #NewWwDiskName ":prefs/env-archive/sys"))
  1735.       (all)
  1736.       (optional "force")
  1737.     )
  1738.         (run "delete RAM:Env-Archive all" (safe))
  1739.  
  1740.     (copyfiles                                                            ;copy startup-seq from ram
  1741.       (source "RAM:s")
  1742.       (dest (cat #NewWwDiskName ":s"))
  1743.       (pattern "startup-sequence")
  1744.       (optional "force")
  1745.     )
  1746.         (run "delete RAM:S all" (safe))
  1747.  
  1748.  
  1749.         (set UnpackFile (cat "RAM:Archives/" #WordworthName))    ;unpack start stub
  1750.         (set UnpackDest (cat #NewWwDiskName ":"))
  1751.         (@UnpackFiles)
  1752.         (run (cat "delete RAM:Archives/" #WordworthName) (safe))
  1753.  
  1754. ;        (set UnpackFile (cat "RAM:Archives/" #PrefsName))            ;unpack extra  prefs
  1755. ;        (set UnpackDest (cat #WwEnvArcSysDest "/"))
  1756. ;        (@UnpackFiles)
  1757. ;        (run (cat "delete RAM:Archives/" #PrefsName) (safe))
  1758.  
  1759.         (set UnpackFile (cat "RAM:Archives/" #AmigaGuideName));unpack amigaguide.lib
  1760.         (set UnpackDest (cat #LibsDest "/"))
  1761.         (@UnpackFiles)
  1762.         (run (cat "delete RAM:Archives/" #AmigaGuideName) (safe))
  1763.     
  1764.     (set UnpackFile (cat "RAM:Archives/" #ASLName))                ;unpack asl
  1765.     (set UnpackDest (cat #LibsDest "/"))
  1766.     (@UnpackFiles)
  1767.         (run (cat "delete RAM:Archives/" #ASLName) (safe))
  1768.  
  1769.     (set UnpackFile (cat "RAM:Archives/" #SystemFontsName))    ;unpack sysfonts
  1770.     (set UnpackDest (cat #SysFontsDest "/"))
  1771.     (@UnpackFiles)
  1772.         (run (cat "delete RAM:Archives/" #SystemFontsName) (safe))
  1773.  
  1774.     (set UnpackFile (cat "RAM:Archives/" #CatalogsName))    ;unpack catalogs
  1775.     (set UnpackDest (cat #CatalogsDest "/"))
  1776.     (@UnpackFiles)
  1777.         (run (cat "delete RAM:Archives/" #CatalogsName) (safe))
  1778.  
  1779.     (set UnpackFile "RAM:Archives/Boot/system.lzh")
  1780.     (set UnpackDest (cat #NewWwDiskName ":"))
  1781.     (@UnpackFiles)
  1782.         (run "delete RAM:Archives/Boot/system.lzh" (safe))
  1783.  
  1784.     (set UnpackFile "RAM:Archives/Boot/c.lzh")
  1785.     (set UnpackDest (cat #NewWwDiskName ":"))
  1786.     (@UnpackFiles)
  1787.         (run "delete RAM:Archives/Boot/c.lzh" (safe))
  1788.  
  1789.     (set UnpackFile "RAM:Archives/Boot/libs.lzh")
  1790.     (set UnpackDest (cat #NewWwDiskName ":"))
  1791.     (@UnpackFiles)
  1792.         (run "delete RAM:Archives/Boot/libs.lzh" (safe))
  1793.  
  1794.     (set UnpackFile "RAM:Archives/Boot/devs.lzh")
  1795.     (set UnpackDest (cat #NewWwDiskName ":"))
  1796.     (@UnpackFiles)
  1797.         (run "delete RAM:Archives/Boot/devs.lzh" (safe))
  1798.  
  1799.     (set UnpackFile "RAM:Archives/Boot/l.lzh")
  1800.     (set UnpackDest (cat #NewWwDiskName ":"))
  1801.     (@UnpackFiles)
  1802.         (run "delete RAM:Archives/Boot/l.lzh" (safe))
  1803.  
  1804.       (@DearchiveModules)                                        ; Draw Tools, Picture & TxtFX
  1805.  
  1806.         (set UnpackFile (cat "RAM:Archives/" #WwFiles1Name))        ;all WWfiles minus WWSpell.lib
  1807.         (set UnpackDest (cat #WwFilesDest "/"))
  1808.         (@UnpackFiles)
  1809.         (run (cat "delete RAM:Archives/" #WwFiles1Name) (safe))
  1810.  
  1811.         (set UnpackFile (cat "RAM:Archives/" #WwFiles3Name))        ;toolbar icons
  1812.         (set UnpackDest (cat #WwFilesDest "/"))
  1813.         (@UnpackFiles)
  1814.         (run (cat "delete RAM:Archives/" #WwFiles3Name) (safe))
  1815.  
  1816.     (set UnpackFile (cat "RAM:Archives/" #FontType1Name))        ;unpack Intellifont.lib
  1817.       (set UnpackDest (cat #LibsDest "/"))
  1818.       (@UnpackFiles)
  1819.         (run (cat "delete RAM:Archives/" #FontType1Name) (safe))
  1820.  
  1821.         (tooltype
  1822.             (dest #WwToolDest)
  1823.             (settooltype #DocsTool #DocsDest)
  1824.         )
  1825.         (tooltype
  1826.             (dest #WwToolDest)
  1827.             (settooltype #ClipartTool #ClipartDest)
  1828.         )
  1829.         (tooltype
  1830.             (dest #WwToolDest)
  1831.             (settooltype #DeviceTool #Parallel)
  1832.         )
  1833.         (tooltype
  1834.             (dest #WwToolDest)
  1835.             (settooltype #FiltersTool #WwFiltersDest)
  1836.         )
  1837.         (tooltype
  1838.             (dest #WwToolDest)
  1839.             (settooltype #ModulesTool #ModulesDest)
  1840.         )
  1841.         (tooltype
  1842.             (dest #WwToolDest)
  1843.             (settooltype #HelpTool #WwHelpDest)
  1844.         )
  1845.         (tooltype
  1846.             (dest #WwToolDest)
  1847.             (settooltype #CatalogsTool #CatalogsLangDest)
  1848.         )
  1849.         (tooltype
  1850.             (dest #WwToolDest)
  1851.             (settooltype #WwFilesTool #WwFilesDest)
  1852.         )
  1853.         (tooltype
  1854.             (dest #WwToolDest)
  1855.             (settooltype #WwSpellLibTool #WwFiles2Dest)
  1856.         )
  1857.         (set #WwSystemDest (cat #NewWwSysDiskName ":"))
  1858.         (tooltype
  1859.             (dest #WwToolDest)
  1860.             (settooltype #WwSystemTool #WwSystemDest)
  1861.         )
  1862.  
  1863.   ;** Check ENVARC: for Wordworth/wwfonts, creating it if it does not exist
  1864.     (set #WwEnvDrawer (cat #NewWwDiskName ":prefs/env-archive/Wordworth"))
  1865.     (if (NOT (exists #WwEnvDrawer))
  1866.       (makedir #WwEnvDrawer (safe))
  1867.     )
  1868.     ;setup Wordworth path
  1869.     ( ;create 'wwfonts' variable with #WwFontsDest in it
  1870.       (textfile
  1871.         (dest (cat #WwEnvDrawer "/WwFonts"))
  1872.         (append #WwFontsDest)
  1873.         (safe)
  1874.       )
  1875.     )
  1876.   ;do the same for ENV:
  1877.     (set #WwEnvDrawer (cat "RAM:ENV/Wordworth"))
  1878.     (if (NOT (exists #WwEnvDrawer))
  1879.       (makedir #WwEnvDrawer (safe))
  1880.     )
  1881.     ( ;create 'WwFonts' variable with #WwFontsDest in it
  1882.       (textfile
  1883.         (dest (cat #WwEnvDrawer "/WwFonts"))
  1884.         (append #WwFontsDest)
  1885.         (safe)
  1886.       )
  1887.     )
  1888.  
  1889.          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  1890.     (run "delete RAM:Archives/#? force")
  1891.   )
  1892. )
  1893.  
  1894.  
  1895. ;** routine to make disk 2 (Ww3System)
  1896. (procedure @CreateDisk2
  1897.     (
  1898.     ;** USE INSTALL DISK 2
  1899.         (set #FileSourceDisk #Install2Disk)
  1900.         (@GetDisk)
  1901.     (set UnpackFileDisk (cat #Install2Disk ":Archive"))
  1902.         (@CopyArchives)
  1903.  
  1904.     ;** CREATE DISK
  1905.         (set x 1)
  1906.     (message #BlankDiskWarning)
  1907.        (@makedisk)
  1908.  
  1909.     (set #FileSourceDisk #NewWwSysDiskName)
  1910.     (@GetDisk)
  1911.  
  1912.         (working #Creatingmsg #NewWwSysDiskName)
  1913.  
  1914.     (makedir #WwFiles2Dest)
  1915.     (makedir #ClipartDest (infos))
  1916.         (makedir #WwToolsDest (infos))
  1917.  
  1918.  
  1919.     ;** Now dearchive files to NewWwSysDisk
  1920.         (set UnpackFile (cat "RAM:Archives/" #WwProgName))        ;WWProg tool
  1921.         (set UnpackDest (cat #NewWWSysDiskName ":"))
  1922.         (@UnpackFiles)
  1923.     (run (cat "delete RAM:Archives/" #WwProgName))
  1924.  
  1925.         (@DearchiveClipArt)
  1926.  
  1927.         (set UnpackFile (cat "RAM:Archives/" #WwFiles2Name))    ;WWSpell.library
  1928.         (set UnpackDest (cat #WwFiles2Dest "/"))
  1929.         (@UnpackFiles)
  1930.     (run (cat "delete RAM:Archives/" #WwFiles2Name))
  1931.  
  1932.         (set UnpackFile (cat "RAM:Archives/" #WwToolsName))        ;WwTools stuff
  1933.         (set UnpackDest (cat #WwToolsDest "/"))
  1934.         (@UnpackFiles)
  1935.     (run (cat "delete RAM:Archives/" #WwToolsName))
  1936.  
  1937.          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  1938. ;    (run "delete RAM:Archives/#? force")
  1939.     )
  1940. )
  1941.  
  1942. ;** routine to make disk 3 (Ww3Outlines)
  1943. (procedure @CreateDisk3
  1944.     (
  1945.     ;** CREATE DISK
  1946.         (set x 2)
  1947.     (message #BlankDiskWarning)
  1948.        (@makedisk)
  1949.  
  1950.     (set #FileSourceDisk #NewWwOutlinesDiskName)
  1951.     (@GetDisk)
  1952.  
  1953.         (working #Creatingmsg #NewWwOutlinesDiskName)
  1954.  
  1955.     (makedir #WwFontsDestOutlines (infos))
  1956.     (makedir #DocsDest (infos))
  1957.     (makedir #TemplatesDest (infos))
  1958.     (makedir #WwFontsDest)
  1959.     (makedir #WwAgfaDest (infos))
  1960.     (makedir #WwPSDest)
  1961.     (makedir #WwTTDest)
  1962.     (makedir #WwHelpDest)
  1963.     (makedir #WwFiltersDest)
  1964.     (makedir #WwFilterLibDest)
  1965.     (makedir #WwPictureFiltersDest)
  1966.  
  1967.     ;** Now dearchive files to NewWwOutlinesDisk
  1968.     (@DearchiveTutorials)
  1969.     (@DearchiveTemplates)
  1970.     (@DearchiveGfxFilters)                                ; Only CGM
  1971.     
  1972.     (set UnPackFile (cat "RAM:Archives/" #FiltersName))            ;Filter.library
  1973.     (set UnPackDest (cat #WwFilterLibDest "/"))
  1974.     (@UnpackFiles)
  1975.         (run (cat "delete RAM:Archives/" #FiltersName) (safe))
  1976.  
  1977.         (set UnpackFile (cat "RAM:Archives/" #WwHelpName))
  1978.       (set UnpackDest (cat #WwHelpDest "/"))
  1979.         (@UnpackFiles)
  1980.     (run (cat "delete RAM:Archives/" #WwHelpName))
  1981.  
  1982.     (set UnpackFile (cat "RAM:Archives/" #UFSTName))
  1983.     (set UnpackDest (cat #WwUFSTDest "/"))
  1984.     (@UnpackFiles)
  1985.     (run (cat "delete RAM:Archives/" #UFSTName))
  1986.  
  1987.     (set UnpackFile (cat "RAM:Archives/" #IntelliName))
  1988.     (set UnpackDest (cat #WwAgfaDest "/"))
  1989.     (@UnpackFiles)
  1990.     (run (cat "delete RAM:Archives/" #IntelliName))
  1991.  
  1992.     (set UnpackFile (cat "RAM:Archives/" #FloppyOtagsName))
  1993.     (set UnpackDest (cat #WwUFSTDest "/"))
  1994.     (@UnpackFiles)
  1995.     (run (cat "delete RAM:Archives/" #IntelliName))
  1996.  
  1997.          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  1998.     (run "delete RAM:Archives/#? force")
  1999.     )
  2000. )
  2001.  
  2002. ;** routine to make disk 4 (Ww3Spell)
  2003. (procedure @CreateDisk4
  2004.     (
  2005.     ;** USE INSTALL DISK 3
  2006.         (set #FileSourceDisk #Install3Disk)
  2007.         (@GetDisk)
  2008.     (set UnpackFileDisk (cat #Install3Disk ":Archive"))
  2009.         (@CopyArchives)
  2010.  
  2011.     ;** CREATE DISK
  2012.         (set x 3)
  2013.     (message #BlankDiskWarning)
  2014.        (@makedisk)
  2015.  
  2016.     (set #FileSourceDisk #NewWwDictDiskName)
  2017.     (@GetDisk)
  2018.  
  2019.         (working #Creatingmsg #NewWwDictDiskName)
  2020.  
  2021.     (makedir #DictDest (infos))
  2022.  
  2023.  
  2024.     ;** Now dearchive files to NewWwSpellDisk
  2025.     (@DearchiveSpell)
  2026.     (@DearchiveThes)
  2027.  
  2028.          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsgLast))
  2029.     (run "delete RAM:Archives/#? force")
  2030.     )
  2031. )
  2032.  
  2033. ;** Check that ASL library is at least version 2.1 (if not replace)
  2034. (procedure @CheckASL
  2035.     (
  2036.         (set ASLVersion (/ (getversion (cat #LibsDefault ":ASL.library")) 65536))
  2037.         (if (< ASLVersion 38)
  2038.             (
  2039.         (if (= @user-level 2)
  2040.             (
  2041.                 (set InstallASLLibrary
  2042.                   (askbool
  2043.                        (prompt #OldASLLibraryMsg)
  2044.                        (choices #InstallASLChoice1 #InstallASLChoice2)
  2045.                        (help #OldASLLibraryHelp)
  2046.                        (default 1)
  2047.                   )
  2048.                     )
  2049.                 (if (= InstallASLLibrary 1)
  2050.                      (
  2051.                        (@InstallASL)
  2052.                        (set ASLOK 1)
  2053.                   )
  2054.                       (
  2055.                               (set ASLOK 0)
  2056.                 )
  2057.                 ) ;end if
  2058.               )
  2059.               (
  2060.                   (@InstallASL)
  2061.                   (set ASLOK 1)
  2062.               )
  2063.             ) ;end if
  2064.           )
  2065.           (; else
  2066.               (set ASLOK 1)
  2067.           )
  2068.         ) ;endif
  2069.     )
  2070. )
  2071.  
  2072. ;** Check that AmigaGuide library is at least version 34.11 (if not replace)
  2073. (procedure @CheckAmigaGuide
  2074.     (
  2075.         (set AmigaGuideVersion (/ (getversion (cat #LibsDefault ":amigaguide.library")) 65536))
  2076.             (if (< AmigaGuideVersion 35)
  2077.             (
  2078.         (if (= @user-level 2)
  2079.             (
  2080.                 (set InstallAmigaGuideLibrary
  2081.                   (askbool
  2082.                        (prompt #OldAmigaGuideLibraryMsg)
  2083.                        (choices #InstallAGChoice1 #InstallAGChoice2)
  2084.                        (help #OldAmigaGuideLibraryHelp)
  2085.                        (default 1)
  2086.                   )
  2087.                     )
  2088.                 (if (= InstallAmigaGuideLibrary 1)
  2089.                      (
  2090.                        (@DearchiveAmigaGuide)
  2091.                   )
  2092.                 );end if
  2093.               )
  2094.               (
  2095.                   (@DearchiveAmigaGuide)
  2096.               )
  2097.             ) ;end if
  2098.           )
  2099.         ) ;endif
  2100.     )
  2101. )
  2102.  
  2103.  
  2104. ;** Procedure to install the asl library
  2105. (procedure @InstallASL
  2106.     (
  2107.     (set #FileSourceName #ASLSourceName)
  2108.     (set #FileSourceDisk #Install1Disk)
  2109.     (@GetDisk)
  2110.  
  2111.     (set UnpackFile #FileSourceName)
  2112.     (set UnpackDest (cat #LibsDefault ":"))
  2113.         (delete (tackon UnpackDest "asl.library"))
  2114.     (@UnpackFiles)
  2115.     )
  2116. )
  2117.  
  2118. ;** Check that diskfont library is at least version 2.1 (if not replace)
  2119. (procedure @CheckDiskFont
  2120.     (
  2121.         (set InstalledDiskFont 0)
  2122.         (set DiskFontVersion (/ (getversion (cat #LibsDefault ":diskfont.library")) 65536))
  2123.         (if (< DiskFontVersion 37)
  2124.             (
  2125.         (if (= @user-level 2)
  2126.             (
  2127.                 (set InstallDiskFontLibrary
  2128.                   (askbool
  2129.                        (prompt #OldDiskFontLibraryMsg)
  2130.                        (choices #InstallDiskFontChoice1 #InstallDiskFontChoice2)
  2131.                        (help #OldDiskFontLibraryHelp)
  2132.                        (default 1)
  2133.                   )
  2134.                     )
  2135.                 (if (= InstallDiskFontLibrary 1)
  2136.                      (
  2137.                        (@InstallDiskFont)
  2138.                        (set DiskFontOK 1)
  2139.                   )
  2140.                       (
  2141.                               (set DiskFontOK 0)
  2142.                 )
  2143.                 ) ;end if
  2144.               )
  2145.               (
  2146.                   (@InstallDiskFont)
  2147.                   (set DiskFontOK 1)
  2148.               )
  2149.             ) ;end if
  2150.           )
  2151.           (; else
  2152.               (set DiskFontOK 1)
  2153.           )
  2154.         ) ;endif
  2155.     )
  2156. )
  2157.  
  2158. ;** Procedure to install the diskfont library
  2159. (procedure @InstallDiskFont
  2160.     (
  2161.     (set #FileSourceName #DiskFontSourceName)
  2162.     (set #FileSourceDisk #Install1Disk)
  2163.     (@GetDisk)
  2164.  
  2165.     (set UnpackFile #FileSourceName)
  2166.     (set UnpackDest (cat #LibsDefault ":"))
  2167.         (delete (tackon UnpackDest "diskfont.library"))
  2168.     (@UnpackFiles)
  2169.     (set InstalledDiskFont 1)
  2170.     )
  2171. )
  2172.  
  2173. ;## Routine to install printer and fonts
  2174. (procedure @AddNewPrinter
  2175.     (
  2176.     ; Copy stuff to RAM first
  2177.     (askdisk
  2178.       (prompt #InsertDiskMsg #Install3Disk)
  2179.       (help #diskhelp)
  2180.       (dest #Install3Disk)
  2181.     )
  2182.         (copyfiles
  2183.             (source (cat #Install3Disk ":Utils"))
  2184.             (dest "RAM:")
  2185.             (pattern "Writeprefs3")
  2186.             (nogauge)
  2187.             (optional "nofail")
  2188.         )
  2189.         (copyfiles
  2190.             (source (cat #Install3Disk ":Utils"))
  2191.             (dest "RAM:")
  2192.             (pattern "select")
  2193.             (nogauge)
  2194.             (optional "nofail")
  2195.         )
  2196.         (copyfiles
  2197.             (source (cat #Install3Disk ":Utils"))
  2198.             (dest "RAM:")
  2199.             (pattern "WwPrinterList")
  2200.             (nogauge)
  2201.             (optional "nofail")
  2202.         )
  2203.  
  2204.     ;** Delete all in #RamTempFile
  2205.     (delete (cat #RamTempFile " all"))
  2206.  
  2207.     (set ChosenDriver "Generic")
  2208.  
  2209.     (set #DriverSource (cat #Install3Disk ":Drivers"))
  2210.  
  2211.     (if (= FloppyInstall 1)
  2212.         (
  2213.             ;** FloppyDiskDriverDest
  2214.             (set #DriverDest (cat #NewWwDiskName ":Devs/Printers"))
  2215.           )
  2216.           (
  2217.             ;** HardDiskDriverDest
  2218.             (set #DriverDest "DEVS:Printers")
  2219.                 (set #CheckGeneric (cat #DriverDest "/" ChosenDriver))
  2220.                 (if (exists #CheckGeneric)
  2221.                   (
  2222.                     (protect #CheckGeneric "+r+w+e+d")
  2223.                   )
  2224.                 )
  2225.           )
  2226.         )
  2227.  
  2228.     (working #WorkingPrintermsg)
  2229.     (set SelectPrt
  2230.       (cat "Ram:select Ram:WwPrinterList")
  2231.     )
  2232.     (run SelectPrt (safe))
  2233.  
  2234.     (set ChosenDriver (getenv "wwDriver"))
  2235.     (set TopBord (getenv "wwTop"))
  2236.     (set BotBord (getenv "wwBottom"))
  2237.     (set LeftBord (getenv "wwLeft"))
  2238.     (set RightBord (getenv "wwRight"))
  2239.  
  2240.     (complete 85)
  2241.     (askdisk
  2242.       (prompt #InsertDiskMsg #Install3Disk)
  2243.       (help #diskhelp)
  2244.       (dest #Install3Disk)
  2245.     )
  2246.     (working #WorkingPrintermsg)
  2247.     (copyfiles                                                ; copy driver to ram
  2248.       (source #DriverSource)
  2249.       (dest #RamTempFile)
  2250.       (pattern ChosenDriver)
  2251.       (optional "force")
  2252.       (nogauge)
  2253.     )
  2254.  
  2255.     ;Now decompress Driver 'ChosenDriver' to destination '#RamTempFile'
  2256.     (working #Unpackmsg4)
  2257.     (set ExpandName (tackon #RamTempFile ChosenDriver))
  2258.  
  2259.     (set #ArchiveError 0)
  2260.     (set RunLHA
  2261.       (cat "LHA e \"" ExpandName "\" \"" #RamTempFile "/\"")
  2262.     )
  2263.         (set #ArchiveError (run RunLHA))
  2264.         (if (> #ArchiveError 0)
  2265.             (
  2266.                 (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
  2267.                 (abort #ArchiveAbortMsg)
  2268.             )
  2269.         )
  2270.     (delete ExpandName)
  2271.  
  2272.     (run "List " #RamTempFile " LFORMAT %s >ENV:wwDriver")
  2273.         (run "resident list REMOVE")                     ;remove resident List
  2274.  
  2275.     (if (= @pretend 1)
  2276.       (
  2277.         (Run "setenv wwDriver Generic.lzh" (safe))
  2278.       )
  2279.     )
  2280.  
  2281.     (set Driver (getenv "wwDriver"))
  2282.     (set DriverLen (strlen Driver))
  2283.     (set DriverLen (- DriverLen 1))
  2284.  
  2285.     (set ChosenDriver
  2286.       (substr Driver 0 DriverLen)
  2287.     )
  2288.  
  2289.     (if (= FloppyInstall 0)
  2290.           (
  2291.               ;** On hard disk, copy driver to devs: now!!
  2292.             (copyfiles
  2293.               (source #RamTempFile)
  2294.               (dest #DriverDest)
  2295.               (pattern ChosenDriver)
  2296.               (optional "force")
  2297.             )
  2298.           )
  2299.     )
  2300.  
  2301.       (set #Drivermsg 1) ; Flag to display driver message at end of installation
  2302.   )
  2303. )
  2304.  
  2305.  
  2306. (procedure @InstallWwFonts
  2307.     (
  2308.         (if (= #UserNovice 1)
  2309.             (user 0)
  2310.         )
  2311.  
  2312.         (if (= #InstallationType "Wordworth")
  2313.             (
  2314.                 (working #InstallingFontsmsg)
  2315.                 (execute "RAM:FontScript")
  2316.                 (delete "RAM:FontScript")
  2317.     
  2318.               (if (exists #BulletOutlinesDest)
  2319.                   (
  2320.                       (
  2321.                             (set #InstallBO
  2322.                                 (askbool
  2323.                                     (prompt #InstallBOPrompt)
  2324.                                     (choices #InstallBOChoice1 #InstallBOChoice2)
  2325.                                     (help #InstallBOPrompt-Help)
  2326.                                     (default 1)
  2327.                                 )
  2328.                             )
  2329.                             (if (= #InstallBO 1)
  2330.                                 (
  2331.                                     (working #InstallingFontsmsg)
  2332.                                     (execute "RAM:FontScript2")
  2333.                                     (delete "RAM:FontScript2")
  2334.                                 )
  2335.                             )
  2336.                         )
  2337.                     )
  2338.                 ); end if
  2339.               (set #OldWordworthSEDrawer (cat #DestDrawer "/" #WordworthSEDrawerName))
  2340.               (set #OldWordworth2Drawer (cat #DestDrawer "/" #Wordworth2DrawerName))
  2341.               (if (OR (exists #OldWordworthSEDrawer) (exists #OldWordworth2Drawer))
  2342.                   (message #InstallOldWordworthFontsmsg)
  2343.               )
  2344.                 (delete "RAM:InstallOutlines")
  2345.             )
  2346.         )
  2347.     )
  2348. )
  2349.  
  2350.  
  2351. ;####### BEGINNING OF MAIN ROUTINE
  2352. ;** Initial Checks
  2353.  
  2354. ;** Check OS version
  2355. (if (< (/ (getversion) 65536) 37)
  2356.     (abort #BadKick)
  2357. )
  2358.  
  2359. (set #Drivermsg 0)
  2360. (set #InstallationType (getenv "Wordworth/install"))
  2361.  
  2362. (welcome)
  2363.  
  2364. (working #CheckStartup)
  2365.  
  2366. ;** Create temp file in ram: for files
  2367. (if (not (exists #RamTempFile))
  2368.     (
  2369.         (makedir #RamTempFile (safe))
  2370.     )
  2371. )
  2372.  
  2373. (set #EnvArcDest (getassign "ENVARC" "a"))
  2374.  
  2375. ;** Make sure there is an Env-Archive directory and logical assign
  2376. (if (= #EnvArcDest "")
  2377.     (
  2378.         (set envdisk "SYS:Env-Archive")
  2379.         (if (NOT (exists envdisk))
  2380.             (
  2381.                 (set envdisk "SYS:Prefs/Env-Archive")
  2382.                 (if (NOT (exists envdisk))
  2383.                     (
  2384.                         (makedir envdisk)
  2385.                         (if (> @user-level 1)
  2386.                             (
  2387.                                 (set envdisk
  2388.                                     (askdir
  2389.                                         (prompt #AskEnvArc)
  2390.                                         (help #AskEnvArcHelp)
  2391.                                         (default envdisk)
  2392.                                     )
  2393.                                 )
  2394.                             )
  2395.                         )
  2396.                     )
  2397.                 )
  2398.             )
  2399.         )
  2400.  
  2401.         ;** Create ENVARC assign in user-startup
  2402.         (startup "Env-Archive"
  2403.             (prompt #AskEnvArcStartup)
  2404.             (help #AskStartupArcHelp )
  2405.             (command ("Assign >NIL: ENVARC: %s" envdisk))
  2406.         )
  2407.         (makeassign "ENVARC" envdisk (safe))
  2408.       (set #EnvArcDest envdisk)
  2409.     )
  2410. )
  2411.  
  2412. (set #EnvDest (getassign "ENV" "a"))
  2413.  
  2414. ;** Make sure there is an ENV directory and logical assign
  2415. (if (= #EnvDest "")
  2416.     (
  2417.         (set envdisk "RAM:ENV")
  2418.         (if (NOT (exists envdisk))
  2419.             (makedir envdisk)
  2420.         )
  2421.  
  2422.         ;** Create ENV: assign in user-startup
  2423.         (startup "Ram:ENV"
  2424.             (prompt #AskEnvStartup)
  2425.             (help #AskEnvStartupHelp )
  2426.             (command ("Assign >NIL: ENV: %s\n" envdisk) "c:Copy >NIL: ENVARC: ENV: ALL NOREQ")
  2427.         )
  2428.         (makeassign "ENV" envdisk (safe))
  2429.       (set #EnvDest envdisk)
  2430.     )
  2431. )
  2432.  
  2433. (set #FileSourceDisk #Install1Disk)
  2434. (@GetDisk)
  2435.  
  2436. (run (cat "resident " #Install1Disk ":Utils/Format")) ;make Format resident
  2437. (run (cat "resident " #Install1Disk ":Utils/Wait"))     ;make Wait resident
  2438. (run (cat "resident " #Install1Disk ":Utils/LHA"))         ;make LHA resident
  2439. (run (cat "resident " #Install1Disk ":Utils/Install2.1")) ;make Install resident
  2440.  
  2441. (run (cat "resident " #Install1Disk ":c/list"))             ;make list resident
  2442. (run (cat "resident " #Install1Disk ":c/delete"))         ;make delete resident
  2443.  
  2444. (set #FullPath (expandpath "sys:"))
  2445. (if (= #FullPath (cat #Install1Disk ":"))
  2446.     (set #DiskDefault 1)
  2447.     (set #DiskDefault 0)
  2448. )
  2449.  
  2450.  
  2451. (if (= #InstallationType "Printer")
  2452.     (
  2453.     (if
  2454.         (askchoice
  2455.           (prompt #DestChoicePrinterPrompt)
  2456.             (choices #HardDiskChoiceMsg
  2457.            #FloppyChoiceMsg
  2458.           )
  2459.           (help #DestChoicePrinterHelp)
  2460.           (default #DiskDefault)
  2461.         )
  2462.       (set FloppyInstall 1)
  2463.       (set FloppyInstall 0)
  2464.         )
  2465.         (@AddNewPrinter)
  2466.     )
  2467.     (
  2468.     ; ### START OF MAIN INSTALLATION
  2469.     ;** set novice user to expert briefly
  2470.     (set #UserNovice 0)
  2471.     (if (= @user-level 0)
  2472.       (
  2473.         (user 2)
  2474.         (set #UserNovice 1)
  2475.       )
  2476.     )
  2477.  
  2478.     (if
  2479.       (askchoice
  2480.         (prompt #DestChoicePrompt)
  2481.         (choices #HardDiskChoiceMsg
  2482.              #FloppyChoiceMsg
  2483.         )
  2484.         (help #DestChoiceHelp)
  2485.         (default #DiskDefault)
  2486.       )
  2487.  
  2488.     ; ### INSTALL ON FLOPPIES
  2489.       (
  2490.         (set FloppyInstall 1)
  2491.         ;** set novice user back to novice
  2492.         (if (= #UserNovice 1)
  2493.           (user 0)
  2494.         )
  2495.         (working #FloppyDiskWorkingMsg)
  2496.  
  2497.                 (@SetFloppyDiskDestinations)
  2498.  
  2499.                 (if (>= @user-level 2) ;expert only
  2500.                     (
  2501.                         (set FormatChoice
  2502.                             (askchoice
  2503.                                 (prompt #FormatChoiceprompt)
  2504.                                 (choices #FormatChoicemsg1 #FormatChoicemsg2)
  2505.                                 (help #FormatChoice-help)
  2506.                                 (default 0)
  2507.                             )
  2508.                         )
  2509.                     )
  2510.                 )
  2511.  
  2512.             (if (= @user-level 0)
  2513.               (
  2514.                 (user 2)
  2515.                 (set #UserNovice 1)
  2516.               )
  2517.             )
  2518.  
  2519.                 (complete 10)
  2520.  
  2521.             (message (cat #FloppyBackupsMsg)
  2522.               (help #FloppyWarningHelp)
  2523.             )
  2524.  
  2525.                 (@CreateDisk1)
  2526.                 (complete 20)
  2527.                 (@CreateDisk2)
  2528.                 (complete 35)
  2529.                 (@CreateDisk3)
  2530.                 (complete 55)
  2531.                 (@CreateDisk4)
  2532.                 (complete 75)
  2533.  
  2534.  
  2535.         ;** set novice user back to novice
  2536.         (if (= #UserNovice 1)
  2537.           (user 0)
  2538.         )
  2539.         (set FloppyFinished 1)
  2540.         (set @default-dest "")
  2541.  
  2542.         (@AddNewPrinter)
  2543.                 (complete 80)
  2544.  
  2545.             ;** On floppy, copy driver to boot disk at end
  2546.             (askdisk
  2547.               (prompt #InsertDiskMsg #NewWwDiskName)
  2548.               (help #diskhelp)
  2549.               (dest #NewWwDiskName)
  2550.                 )
  2551.             (copyfiles
  2552.               (source #RamTempFile)
  2553.               (dest #DriverDest)
  2554.               (pattern ChosenDriver)
  2555.               (optional "force")
  2556.             )
  2557.  
  2558.         (complete 90)
  2559.         (working #Installingmsg1)
  2560.  
  2561.       ;** Lets set the WordworthPrefs file
  2562.         (set #PrefsDest (cat #NewWwDiskName ":WordworthPrefs"))
  2563.         (run
  2564.           (cat "RAM:writeprefs3 \"" #PrefsDest "\" \"" #DictDest "\" \"" #ThesDest "\" \"" ChosenDriver "\" \"" TopBord "\" \"" BotBord "\" \"" LeftBord "\" \"" RightBord "\" \"" #TemplatesDest "\""
  2565.         ))
  2566.        )
  2567.  
  2568.  
  2569.  
  2570.     ; ### INSTALL ON HARD DISK
  2571.       (
  2572.         (set ASLOK 0)
  2573.         (set DiskFontOK 0)
  2574.         (set #TextPreservedFlag 0)
  2575.         ;** set novice user back to novice
  2576.         (if (= #UserNovice 1)
  2577.           (user 0)
  2578.         )
  2579.  
  2580.         (@CheckDiskFont)
  2581.         (@CheckASL)
  2582.         (if (AND (= ASLOK 1) (= DiskFontOK 1))
  2583.           (
  2584.             (working #HardDiskWorkingMsg)
  2585.               ;set amount of disk space needed in bytes
  2586.               (set HDSpaceNeededBytes (* (* FullHDSpace 1024) 1024))
  2587.               (set TotalFontLibSpace FullHDLibsSpace)
  2588.  
  2589.               (@FindHDDest)                      ;ask for destination drawer
  2590.                         (@SetHardDiskDestinations)
  2591.                    (@DearchiveCustomModulesHD) ;install all modules
  2592.  
  2593.             (set @default-dest #DestDrawer)
  2594.           )
  2595.           (
  2596.             (if (AND (= ASLOK 0) (= DiskFontOK 0))
  2597.                 (
  2598.                     (abort #BadASLandDiskFont)
  2599.                 )
  2600.             )
  2601.             (if (= ASLOK 0)
  2602.                 (
  2603.                     (abort #BadASL)
  2604.                 )
  2605.               (
  2606.                   (abort #BadDiskFont)
  2607.               )
  2608.             )
  2609.           )
  2610.         ); endif
  2611.  
  2612.         (if (= #TextPreservedFlag 1)
  2613.             (
  2614.                 (@RetrieveOldTextFiles)
  2615.             )
  2616.         )
  2617.         ;** Check env for Wordworth/wwfonts, creating it if it does not exist
  2618.         (set #WwEnvArcDest (cat #EnvArcDest "/" #WwDrawerName))
  2619.         (if (NOT (exists (#WwEnvArcDest)))
  2620.           (makedir #WwEnvArcDest (safe))
  2621.         )
  2622.         ;setup Wordworth path
  2623.         ( ;create 'wwfonts' variable with #HDWwFontsDest in it
  2624.           (textfile
  2625.             (dest (cat #WwEnvArcDest "/" #WwFontsEnvName))
  2626.             (append #HDWwFontsDest)
  2627.             (safe)
  2628.           )
  2629.         )
  2630.  
  2631.         ;do the same for env:
  2632.         (set #WwEnvDest (cat #EnvDest "/" #WwDrawerName))
  2633.         (if (NOT (exists (#WwEnvDest)))
  2634.           (makedir #WwEnvDest (safe))
  2635.         )
  2636.         (;create 'WwFonts' variable with #HDWwFontsDest in it
  2637.           (textfile
  2638.             (dest (cat #WwEnvDest "/" #WwFontsEnvName))
  2639.             (append #HDWwFontsDest)
  2640.             (safe)
  2641.           )
  2642.         )
  2643.  
  2644.              (tooltype
  2645.                     (dest (cat #InsideHDDest "/Wordworth"))
  2646.                     (settooltype "CLIPART" #ClipartDest)
  2647.                 )
  2648.                 (tooltype
  2649.                     (dest (cat #InsideHDDest "/Wordworth"))
  2650.                     (settooltype "DOCS" #DocsDest)
  2651.                 )
  2652.  
  2653.  
  2654.                 (copyfiles
  2655.                     (source #HDWwToolsDest)                                        ;Copy `InstallOutlines'
  2656.                     (dest "RAM:")                                                            ;to RAM for later on
  2657.                     (pattern "InstallOutlines")
  2658.                     (nogauge)
  2659.                     (optional "nofail")
  2660.                 )
  2661.  
  2662.                 (@AddNewPrinter)
  2663.                 (complete 85)
  2664.                 (@InstallWwFonts)
  2665.                 (complete 90)
  2666.  
  2667.         (working "Installing Wordworth 3 - Please wait...")
  2668.  
  2669.         ; Lets set the WordworthPrefs file
  2670.         (set #PrefsDest (tackon #InsideHDDest "WordworthPrefs"))
  2671.         (run
  2672.           (cat "RAM:writeprefs3 \"" #PrefsDest "\" \"" #DictDest "\" \"" #ThesDest "\" \"" ChosenDriver "\" \"" TopBord "\" \"" BotBord "\" \"" LeftBord "\" \"" RightBord "\" \"" #TemplatesDest "\""
  2673.         ))
  2674.       )
  2675.     )
  2676.   )
  2677. )
  2678.  
  2679. ;More Cleanup
  2680. (delete (tackon #RamTempFile ChosenDriver))
  2681. (delete #RamTempFile)
  2682.  
  2683. (run "resident delete REMOVE")
  2684.  
  2685. (delete "RAM:writeprefs3")
  2686. (delete "RAM:select")
  2687. (delete "RAM:WwPrinterList")
  2688.  
  2689. (complete 100)
  2690.  
  2691. (if (= #InstallationType "Printer")
  2692.     (
  2693.     (message #InstallationCompletemsg #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  2694.       (exit (quiet))
  2695.   )
  2696. )
  2697.  
  2698. (if (= FloppyFinished 1)
  2699.     (
  2700.         (if (= #Drivermsg 1)
  2701.             (
  2702.                 (exit #FloppyFinishedMsg #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  2703.             )
  2704.             (
  2705.                 (exit #FloppyFinishedMsg)
  2706.             )
  2707.         )
  2708.     )
  2709.     (
  2710.         (if (= #Drivermsg 1)
  2711.             (
  2712.                 (exit #ReBoot #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  2713.             )
  2714.             (
  2715.                 (exit #ReBoot)
  2716.             )
  2717.         )
  2718.     )
  2719. )
  2720.